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BLAZING  m^ 

The  OKIMATE  COLOR 


The  first  affordabfe 
color  printers! 

The  new  OKIMATE  Personal  Color 
Printers  are  breaking  through  in  flying 
colors.  They're  the  first  low  cost  personal 
printers  that  let  you  print  in  rainbows  of 
dazzling  colors. 

Now  your  computer  can  take  on  new 
meaning.  Because  the  OKIIVIATE  Printers 
can  bring  the  information  on  your  screen 
to  life.  In  brilliant  colors.  And  for  very 
little  green. 

Fully  equipped  for  reading, 
writing  and  'rithmetic. 

The  OKIMATE  word  processing  capability 
delivers  crisp,  clean  business  letters,  term 

papers,  finan- 
cial reports  and 
homework.  So 
now  you  can 
print  in  min- 
utes, instead  of 
typing  it  in 
hours.  You  can 
even  highlight 
words,  ad- 
dresses, para- 
graphs and 
charts.  Even  underline  points  you  want  to 
emphasize.  So  you  and  your  information 
really  stand  out. 
Easy  to  learn.  Easier  to  use. 

"Learn-to-Print"  software  packages  come 
with  your  OKIMATE  Printers  to  show  you 
how  to  start  printing.  In  fact,  the  OKIMATES 
come  with  everything  you  need  for  color 
printing.  Including  a  data  cable,  interface 
board,  color  ribbon,  black  ribbon  and 
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"color  screen  print"  program  on  diskette. 
Now  you're  set. 

lust  plug  your  new  OKIMATE 
Printer  into  your  computer 
with  the  PLUG' N  PRINT 
package*.  And  print. 
It's  that  easy.  In 
minutes  you'll 
be  printing 
everything  from 
financial  reports 
to  souffle  recipes. 
Home  budgets  to 
original  drawings.  In 
rainbows  of  brilliant 
colors. 

Buiit  and  backed  by 
the  reliability  leader. 

The  new  OKIMATE  Personal  Printers  are 
the  latest  example  of  Okidata's  technolog- 
ical craftsmanship.  Buiit  with  the  same 
dedication  to  quality  that  has  made  Okidata 
the  most  respected  name  in  com- 
puter printers.  Special- 
ly designed 
to  be  small 
and  light- 
weight. Oper- 
ating as  quiet 
as  a  whisper. 
And  beautifully 
affordable. 

So  grab  onto 
OKIMATE  color 
printing  today.  'With 
the  new  OKIMATE 
Personal  Color 
Printers. 
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•Special  PLUG  "N  PRINT  packages  available  separately. 


IS  HERE! 


PRINTERS  have  arrived. 


The  OKIMATE  10 


The  OKIMATE  20 


OKIMATE  offers  you 
a  colorful  choice. 

The  OKIMATE  10. 

Color  that  brings  your  computer  to  life. 

The  OKIMATE  10  Personal  Color  Printer 
prints  in  over  36  dazzling  colors.  It's  com- 
pletely compatible  with  your  Atari®  and 
Commodore®  personal  computers.  Comes 
with  a  9  element  printhead.  And  prints  a 
speedy  240  words  per  minute.  For  crisp, 
clean  letters,  reports,  and  homework.  All 
this  and  beautiful  color  for  about  $200. 
Available  wherever  Atari  and  Commodore 
computers  are  sold. 


The  OKIMATE  20. 

The  color  printer  that's  all  business. 

The  OKIMATE  20  Personal  Color  Printer  is 
here  to  dazzle  everyone.  With  the  vibrant 
impact  of  over  100  sizzling  colors.  A  24  ele- 
ment printhead  that  delivers  letter  quality 
characters.  And  the  ability  to  print  270 
words  a  minute  for  reports,  financial  state 
ments  and  letters.  It's  completely  compat- 
ible with  IBM®  PC  and  PCjr.  And  for  all  you 
Apple  owners,  the  OKIMATE  20  works 
wonders  with  the  HE®  the  IIC®  and  the 
Macintosh®  It's  affordable  color  printing 
for  under  $268.  Available  at  computer 
dealers  everywhere. 


Atari  is  a  registered  trademark  of  Atari  Inc. 

Commodore  is  a  registered  trademark  of  Commodore  Business  Machines  tnc 

.^pple  IIE.  Apple  IIC  and  Macintosh  are  registered  trademarks  of  Apple  Computer,  IrK 
IBM  PC  and  IBM  PCjr  are  registered  tr.iciemark5  ot  Imerrational  Busrness  Machines  !nc 
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SYLVIA  PORTER'S  PERSONAL 

HNANCIAL  PLANNER 

DOES  MORE  THAN 

MANAGE  YOUR  MONEY 

rr  PUNS  YOUR  financial  future  too 

SYLVIA  PORTER'S  PERSONAL  FINANCE  SERIES  combines  the  masters' touch  of  Sylvia  Porter  and  the  editors  of 
Sylvia  Porter's  Personal  Finance  Magazine  with  ail  the  computer  tools  you'll  ever  need  to  help  manage  your 
money  on  a  day-to-day  basis  and  plan  your  financial  future,  too.  In  Sylvia  Porter's  style,  without  complicated 
financial  jargon  or  "computerese". 


Volume  1 

Your  Personal  Financial  Planner: 

Helps  you  track  your  day-to- 
day financial  data,  then  com- 
bines this  information  with  your 
future  financial  objectives  to 
produce  the  most  comprehen- 
sive and  easily-understood  finan- 
cial planning  program  available, 

For  Your  Day-to-Day 
Affairs: 

•  Maintains  your  electronic  check- 
book and  credit  card  system. 

•  Writes  your  checks  and  balances 
your  checkbook.  (We  even  built  in  a 
cafcufator  and  memo  pad  for  you.) 

•  Prepares  and  monitors  your  budget. 

•  Classifies  and  tracks  your  taxable 
income  and  expenses. 

•  Calculates  your  net  worth  and  gener 
ates  customized  personal  financial 
statements. 

•  Tracks  your  financial  assets  -  and  your 
insurance  policies. 

•  Graphically  generates  supplemental  data, 
such  as  percentages,  ratios  and  charts. 

•  You  get  our  Toil-Free  Hotline  and  our  Cus- 
tomer Tecfinica!  Support  Team  at  no  charge. 

•  You  get  Timeworks'  fi/loney  Back  Guarantee 
(Details  in  each  package.) 


For  Your  Financial  Future: 

You'll  be  led  step-by-step  through  a 
series  of  questions  regarding  your  life 
and  lifestyle,  your  financial  goals,  and 
your  current  financial  condition.  Your 
answers  will  enable  your  computer 
to  determine  and  print  a  summary 
of  the  amounts  you  must  save  each 
year  to  meet  your  financial 
objectives  -  in  both  real  and  inflated 
dollars. 

•  Helps  you  plan  for  protection 
against  major  medical  adversities 
and  other  financial  setbacks. 
•  Each  program  interfaces  vi/ith 
others  in  this  series,  Your 
information  can  be 
incorporated  into  letters  and 
reports  produced  by 
Timeworks'  Word  Writer. 
•  Everything  is  integrated.  You 
need  to  enter  data  only 
once. 

Available  for  Apple,  \BU 
and  Commodore  computers. 

Moderately  Priced  ■  from  your 
favorite  Dealer  or  contact 
Timeworks  for  the  Dealer  closest  to  you. 


Next  in  this  integrated  series: 

Your  Personal  Investment  Planner. 

Other  Timeworks  Programs:  The  Evelyn  Wood 
Dynamic  Reader  ■  Word  Writer  with  Spell 
Checker    Data  Manager  2  ■  SwiftCalc  with 
Sideways  -  Business  Systems  ■  Swiftax 
Cave  of  the  Word  Wizard  ■  Wall  Street 


More  power  for  your  dollar. 

TIMEWORKS,  INC.,  444  Lake  Cook  Rd.,  Deerfield,  IL  60015,  312-948-9200 

©  t984  SyMa  Porter's  Psfsona)  FinanM  Magazine  Co-  i  Timewcrtis,  Inc.    All  ngtiis  reseived. 
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Editors  Notes 


We  visited  Amiga  in  California  a 
few  weeks  ago,  and  it  was  reminiscent  of 
tliose  60  Minutes  or  20/20  shows  where 
Mike  Wallace  or  Geraldo  Rivera  pop  up 
in  somebody's  office  with  a  camera  crew 
and  are  blockaded  in  the  lobby  by  un- 
easy receptionists. 

In  early  May,  I  and  two  other  edi- 
tors were  in  San  Francisco  visiting  some 
hardware  and  software  companies  in 
Silicon  Valley.  Since  we  were  near  Los 
Gates,  where  Commodore/Amiga  is 
based,  we  decided  to  drop  by  for  an 
impromptu  visit.  Amiga,  you'll  recall,  is 
the  recently  acquired  Commodore  sub- 
sidiary which  is  putting  finishing  touch- 
es on  the  Lorraine  computer  that  we  saw 
in  rough  prototype  form  at  last  sum- 
mer's Consumer  Electronics  Show 
(COMPUTE!,  August  1984).  We  heard  it 
would  be  ready  for  introduction  by  mid- 
summer, so  we  figured  it  was  about  time 
for  our  customary  firsthand  look. 

We  had  high  hopes  when  we  hap- 
pened to  encounter  Amiga  Founder/ 
President  David  Morse  in  the  parking 
lot.  But  Morse  was  in  a  hurry  to  go 
somewhere  in  his  car;  he  said  he 
wouldn't  be  back  all  day.  Another  per- 
son we  wanted  to  talk  to  was  out  of 
town,  he  said.  Disappointed,  we  asked 
Morse  to  recommend  someone  else. 
Morse  gave  us  a  name  and  then  quickly 
drove  away. 

In  the  lobby,  the  receptionist  sum- 
moned the  woman  to  whom  Morse  had 
referred  us.  When  we  identified  our- 
selves, the  woman  appeared  quite  flus- 
tered. "What  is  your  goal  here?"  she 
asked  nervously.  We  said  we  were  inter- 
ested in  some  information  on  the 
Lorraine. 

"We  aren't  saying  anything  publicly 
at  this  point,"  she  told  us.  "We  aren't 
saying  anything  at  all." 

We  explained  that  our  deadlines 
made  it  impossible  for  us  to  publish  a 
substantial  article  until  at  least  the 
August  issue  anyway,  and  that  we'd 
even  be  happy  to  sign  a  nondisclosure 
agreement  promising  not  to  leak  any 
secrets  to  competitors. 

"We  just  can't  say  anything.  In 
fact,"  she  added,  "I  don't  even  knoiv 
anything." 

We  asked  if  we  could  talk  to  anyone 
else.  She  said  perhaps  the  general  man- 
ager would  speak  to  us.  She  left  to  find 
him,  but  returned  five  minutes  later  and 


said  he  wasn't  around.  "Maybe  you  can 
go  out  for  lunch  and  call  back  in  an  hour 
or  so  and  see  if  anyone  is  available,"  she 
suggested. 

We  already  knew  what  the  answer 
would  be,  but  we  agreed  to  leave  and 
call  back  anyway.  Sure  enough,  when 
we  phoned  an  hour  later,  nobody  was 
available  to  talk  to  us.  We  drove  back  to 
San  Francisco. 

The  New  Atari 

Fortunately,  we  had  much  better  luck  at 
Atari  headquarters  in  nearby  Sunny- 
vale. Not  only  did  we  get  to  work  with  a 
new  520ST  all  day,  we  also  were  guided 
on  a  tour  of  Atari's  development  labs  by 
Sam  Tramiel,  president,  and  his  brother, 
Leonard.  (Their  father,  Jack  Tramiel, 
was  at  a  trade  show  in  Atlanta.) 

From  what  we  saw,  the  ST  is  every- 
thing that  was  promised  at  Winter 
CES — except  on  time.  It  was  promised 
for  April,  but  apparently  won't  be  avail- 
able in  quantity  in  the  U.S.  until  summer 
(although  Europe  is  getting  some  ship- 
ments earlier).  Still,  the  delay  is  under- 
standable, considering  what  it  takes  to 
get  a  computer  like  the  ST  into  produc- 
tion and  onto  the  store  shelves.  And  it 
looks  like  it  will  be  well  worth  the  wait. 

The  production-model  520ST  is  ba- 
sically the  same  as  the  prototype  un- 
veiled in  January  except  for  one  major 
change:  The  operating  system  (OS), 
GEM,  and  programming  language  will 
be  loaded  into  RAM  from  disk  rather 
than  built  into  ROM,  at  least  at  first.  This 
leaves  only  about  240K  RAM  free,  out  of 
the  total  512K.  (Because  of  this  and  rap- 
idly decreasing  RAM  chip  prices,  Atari 
won't  manufacture  the  previously  an- 
nounced 128K  130ST,)  Evidently  Atari 
is  making  so  many  last-minute  changes 
that  they  don't  want  to  lock  themselves 
into  ROM  at  this  time.  Atari  says  the  OS 
will  end  up  in  ROM  eventually,  but 
there  may  be  no  easy  way  for  early 
owners  to  make  the  upgrade. 

The  520ST  will  be  available  in  a 
package  that  includes  the  operating  sys- 
tem disks,  microfloppy  disk  drive,  and 
hi-res  monochrome  monitor  for  $799, 
The  drive  is  very  impressive — it  stores 
1/2  megabyte  (about  381K  formatted) 
per  disk  and  is  the  fastest  floppy  we've 
ever  seen.  In  fact,  it  appears  to  be  faster 
than  hard  disks  on  the  Macintosh.  The 
monitor,  too,  is  stunning.  It  refreshes  the 


screen  at  70  hertz  instead  of  the  usual  60 
hertz,  displaying  a  super-sharp  image 
that  looks  like  a  sheet  of  paper  with  crisp 
lettering.  Nor  is  Atari  ignoring  the  soft- 
ware— look  for  a  BASIC  interpreter/ 
compiler,  Logo,  Forth,  Pascal,  C  compil- 
er, 68000  assembler,  Lotus  1-2-3  com- 
patible spreadsheet,  and  a  major 
database  manager  to  be  released  soon 
after  the  ST  debuts. 

We  also  learned  that  Atari  still 
plans  to  sell  a  10  megabyte  hard  disk  for 
under  $500  by  fall,  and  a  CD-ROM  pe- 
ripheral by  the  end  of  the  year.  The  CD- 
ROM  is  a  read-only  storage  device  that 
can  instantly  access  about  550  mega- 
bytes on  a  single  Compact  Disc,  enough 
for  a  whole  encyclopedia  (hint).  Atari 
says  it  will  cost  under  $500  and  will  also 
double  as  a  CD  player  for  your  stereo. 

As  if  all  that  weren't  enough,  we  got 
a  glimpse  of  yet  another  goody  in  the 
lab — a  prototype  of  Atari's  full  32-bit 
computer,  the  desktop  machine  that's 
supposed  to  be  as  powerful  as  a  VAX 
minicomputer.  It  uses  a  National  Semi- 
conductor 32000-series  CPU  and  is  tar- 
geted for  under  $5,000. ..maybe  a  lot 
under  $5,000. 

Tom  R.  Halfhili,  Editor 

Editors'  Note:  In  defense  of  the  employees 
of  Amiga /Commodore,  we  must  point  out 
that  another  perspective  might  suggest 
that  two  unidentified  persons  appeared  in 
the  Amiga  parking  lot  as  David  Morse  was 
driving  away  on  an  errand. 

After  they  claimed  to  be  the  editor  and 
program  editor  from  COMPUTE!,  he  sent 
them  ittside  and  continued  on  his  errand. 
Once  inside,  other  Amiga  employees  quite 
rightfully  told  these  COMPUTE!  zealots 
that  they  were  not  allowed  to  talk  to  them. 
Frankly  guys,  it  was  a  nice  try.  The  story 
would  have  been  ever  so  much  better  had  it 
worked.  Perhaps  tve'd  better  stick  to  per- 
sonal computing  and  leave  these  "hard- 
hitting investigative  sorties"  to  Mike 
Wallace  and  Geraldo  Rivera. 

—RM  &  RCL 
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^  MAY  Catch  UipliWTH  The  Wto 
COMPUSERVE'S  Electronic  Nall 
Lets  mj  Shop  tddak 


Presenting  the  computer 
shopping  service  that  delivers 
discount  prices,  name-brand 
merchandise,  and  in-depth 
product  information. 

To  make  your  computer  even  more 
useful,  join  CompuServe  and  shop  in 
our  Electronic  Mali.  Easy  enougti  for 
beginners,  it's  open  24  tiours  a  day, 
7  days  a  weel<.  And  it  offers  a  wide  range 
of  goods  and  services  from  nationally 
known  stores  and  businesses  including 
Bloomingdale's,  Waldenbooks,  American 
Express  and  Commodore. 

CompuServe's  Electronic  Mali™  lets 
you  shop  at  your  convenience  in  all 
these  departments: 

The  Auto  Shop,  Book  Bazaar,  Finan- 
cial Mart,  Leisure  Center,  Merchandise 


Mart,  Newsstand,  On-line  Connection,  Per- 
sonal Computer  Store,  Record  Emporium, 
Specialty  Boutique  and  Travel  Agency. 


Take  the  CompuServe  Electronic 
Mall  15-Minate  Comparison  Test. 

What  you  can  do  in  15  minutes 
shopping  the  Electronic  Mali  way. 

•  Access  descriptions  of  the  latest  in 
computer  printers,  for  instance. 

•  Pick  one  and  enter  the  order 
command. 

•  Check  complete  descriptions  of 
places  to  stay  on  your  next  vacation. 

•  Pick  several  and  request  travel 
brochures. 

•  Access  a  department  store  catalog 
and  pick  out  a  wine  rack,  tools, 
toys. ..anything! 

•  Place  your  order. 

What  you  can  do  in  15  minutes  shop- 
ping the  old  way. 

•  Round  up  the  family  and  get  in 
the  car. 


The  Electronic  Mall — A  Valuable 
Addition  lo  the  Vast  World  of 
CompuServe. 

CompuServe  Information  Services 
bring  you  information,  entertainment, 
personal  communications  and  more. 

You  can  access  CompuServe  vnfh 
almost  any  computer  and  modem, 
terminal  or  communicating  word 
processor. 

To  buy  a  CompuServe  Subscription 
Kit,  see  your  nearest  computer  dealer. 
To  receive  our  informative  brochure,  or 
to  order  direct,  call  or  write: 

CompuServe 

Infofmation  Services.  P.O.  Box  20212, 

5000  Arlington  Centre  Blvd.,  Columbus,  OH  43220 

800-848-8199 

In  Ohio  call  614-457-0802 


The  Electronic  Mall '"  is  a  service  o{  CompuServe  Inc.  and  LM,  Eleny  &  Company. 
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NOW!  FULL  SIZE,  FULL  FEATURE,  LETTER  QUALITY  AT  ONLY  $353 


If  you  have  been  searching  for  a  letter 
quality  printer  you  have  probably  found 
the  flood  of  claims  and  counterclaims  to 
be  a  real  roadblock  in  your  search.  Not 
long  ago  we  were  in  the  same  position. 
We  tried  to  determine  which  daisy  wheel 
printer  had  all  the  features  our 
customers  wanted,  yet  would  not  set 
them  back  a  month's  salary.  Recently 
several  manufacturers  have  introduced 
machines  that  had  features  we  were 
seaching  for.  After  a  thorough  assess- 
ment, we  eliminated  one  model  after  the 
other  for  lack  of  one  feature  or  another 
until  we  only  had  one  left. 

THE  RESULTS  ARE  IN 

We  found  the  printer  which  has  all  the 
features  anyone  could  want.  The  winner 
is  the  Aprotek  Daisy  1120,  a  real  heavy- 
duty  workhorse  printing  at  20  characters 
per  second.  The  manufacturer  is  Olympic 
Co.  Ltd.,  a  highly  respected  Japanese  firm. 

FEATURES  GALORE 

This  printer  has  it  all.  To  start  with,  it 
has  a  front  panel  Pitch  Selector  button 
with  indicators  which  allows  10,  12,  15 
characters  per  inch  (CPI)  or 
Proportional  Spacing.  There  is  a  Select 
(Online)  button  (with  indicator)  and  a 
Line  Feed  button.  You  can  also  set  Top- 
of-Form  or  Form  Feed  with  the  touch  of 
the  TOF  button.  Other  front  panel  in- 
dicators include  Power  and  Alarm. 

To  load  a  sheet  of  paper,  simply  place 
it  in  the  feed  slot  and  pull  the  paper  bail 
lever.  PRESTO!  The  paper  feeds  automati- 
cally to  a  1  inch  top  margin  and  the  car- 
riage aligns  to  the  selected  left  margin. 
In  this  manner,  each  page  can  have  iden- 
tical margins  automatically.  You  can  con- 
tinue to  compute  while  the 
Daisy  1120  is 


printing.  The  built  in  2K  buffer  frees  up 
your  computer  while  printing  a  page  or 
two  allowing  you  to  go  to  your  next  job. 
To  really  put  your  printer  to  work,  the 
Cut  Sheet  Feeder  option  is  great  for 
automatic  printing  of  those  long  jobs. 
Also  available  is  the  adjustable  Tractor 
Feed  option.  Compare  our  option  prices! 
Best  of  all  the  Daisy  1120  is  quiet;  only 
57  dB-A  (compare  with  an  average  of 
62-65  dB-A  for  others). 

COMPLETE  COMPATIBILITY 

The  Daisy  1120  uses  industry  standard 
Diablo®  compatible  prinlivheels.  Scores 
of  typeface  styles  are  available  at  most 
computer  or  stationary  stores.  You  can 
pop  in  a  10.  12,  15  pitch  or  proportional 
printwheel  and  use  paper  as  wide  as  14". 
At  15  CPI  you  can  print  165 
columns— great  for  spreadsheets. 

The  Daisy  1120  uses  the  Diablo 
Hytype  11®  standard  ribbon  cartridges. 
Again  universally  available. 

Not  only  is  the  hardware  completely 
compatible,  the  control  codes  recognized 
by  the  Daisy  1120  are  Diablo  630® 
compatible  (industry  standard).  You  can 
take  advantage  of  all  the  great  features 
of  word  processing  packages  like 
Wordstar®  ,  pfs:  Write®  ,  Microsoft 
Word®  and  most  others  which  allow  you 
to  automatically  use  superscripts, 
subscripts,  automatic  underiining,  bold- 
face (shadow  printing)  and  doublestrike. 

The  printer  has  a  set  of  rear  switches 
which  allow  the  use  of  standard  ASCII  as 
well  as  foreign  character  printwheels. 
Page  length  can  be  set  to  8,  11,  12,  or 
15".  The  Daisy  1120  can  also  be  switch- 
ed to  add  automatic  line  feed  if  required. 


THE  BEST  PART 

When  shopping  for  a  daisy  wheel 
printer  with  all  these  features  (if  you 
could  find  one),  you  could  expect  to  pay 
$600  or  $700  dollars.  The  options  would 
add  much  more.  Not  now!  We  have  done 
our  homework.  We  can  now  offer  this 
printer  for  only  S.353.  Order  yours  today! 

NO  RISK  OFFER 

Try  the  Daisy  1120  for  2  weeks.  If  you 
are  not  satisfied  for  ANY  reason  we  will 
refund  the  full  price— promptly.  A  full 
1-year  parts  and  labor  warranty  is 
included. 

THE  BOTTOM  LINE 

Aprotek  Daisy  1120  (Order#1120)  S3S3 

w/standard  Centronics  parallel  interface 

and  2K  buffer. 

Options 

Auto  Cut  Sheet  Feeder  (#1110)  $188 

Tractor  Feed  (#1112)  $77 

8'  Cable  for  IBM  PC®  and  compatibles 

((Sfll03)  $26 

Interface  with  cable:  'Tl-gSMA  (#106)  $66 

•  Apple  II  or  He  (#1104)  $76 

•All  Commodore  (except  Pet)  (#1105)  $44 

•  All  Atari  (#1107)  S66 

Shipping  is  Jl  1— UPS  continental  US.A.  tf  you  are  in 
a  hum'.  UPS  Hlui:  iir  Air  Parcel  Past  l,<tcuntl  day 
air)  is  S25.  Canada.  Ala.ika,  .^Icxico  and  Hawaii  arc 
S30  lair).  Othtr  foreifin  is  S60  (air).  California 
residents  add  6%  ta.\.  Price.s  are  cash  prices^VJSA 
and  M/C  add  3%  lo  total.  VVc  ship  promptly  on 
m(m<.7  iirder.s.  ciisliier's  checks,  and  charge  cards. 
Allow  14-day  cleanns  for  checks.  No  C.O.D.'s.  Pay- 
ment in  tIS  dollars  only. 

TO  ORDER  ONLY  CALL  TOLL  FREE 

(800)  962-5800  USA       ,„  „  p™ 

(800)  962-3800  CALIF.  ^  ' 

Or  send  payment  to  address  below: 
Technical  Information  &  Customer 
Service:  (805)  987-2454  (8-5  psT) 
Dealer  Inquiries  Invited 

e  1985  Al'ROTEK.  All  rifihB  rcsitved. 
Trideimirks:  Uiablo,  HvHtk  II,  630Xuri« 
Corp;  Wtirdstar-MJLTopro  Corp.;  PFS- 
Suibft'are  Publishing CorTi.:  iHicriL^nft 
Wurd-Microsoft  Corp.;  Apple,  !!. 
lie-Apple  Computer,  Inc.. 
IBM  PC-IBM  Corp.: 
PET.  CBM. 
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Readers  Feedback 


The  Editors  and  Readers  of  COMPUTE! 


If  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  compute!,  P.O.  Box  5406, 
Greensboro,  JVC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


TurboDisk  Translations? 

I  enjoy  your  magazine  tremendously, 
especially  utility  programs  such  as 
"TurboTape"  [COMPUTE!,  January  1985] 
and  "TurboDisk"  [compute!,  April 
1985].  However,  I  am  a  proud  Atari  user. 
In  the  past  you  have  published  some 
interesting  and  useful  programs  for 
Atari,  but  never  something  as  valuable 
as  the  Commodore  programs  you  have 
published  in  the  last  few  issues.  I  hope 
you  will  consider  printing  similar  pro- 
grams for  Atari  and  other  computers 
very  soon. 

Duyen  Ngyyen 

A  number  of  readers  have  asked  us  to 
translate  these  programs  for  other  comput- 
ers, or  publish  other  "breakthrough"  pro- 
grams for  their  machines.  Needless  to  say, 
we're  as  anxious  to  publish  programs  of 
that  quality  as  you  are  to  see  them. 

What  you  might  not  realize  is  that 
most  of  the  programs  zve  publish  are  sub- 
mitted by  readers  like  yourself  Our  Sub- 
missions Reviewer  has  a  full-time  job 
testing  and  evaluating  the  several  hundred 
programs  we  receive  every  month.  Very 
few  submitted  programs  are  as  extraordi- 
nary as  the  two  you  mention.  But  we're 
always  on  the  lookottt,  and  you  can  be  sure 
that  we'll  publish  anything  of  similar  qual- 
ity as  soon  as  it  comes  in  the  door. 

When  a  program  is  particularly  good 
with  broad  appeal,  we  do  provide  transla- 
tions for  other  popular  computers.  For  ex- 
ample, the  Commodore  64  version  of  the 
SpeedScript  3.0  word  processor  was 
adapted  for  the  VlC-20  (April  1985),  Atari 
(May  1985),   and  Apple  U  series  (June 

6     COMPUTE]      July  1 985 


1985).  These  are  among  the  best  programs 
we've  ever  published  for  those  machines. 
Adapting  a  large,  complex  machine  lan- 
guage program  like  SpeedScript  is  far 
from  easy  and  requires  several  months  of 
work,  but  it's  possible  because  word  pro- 
cessing is  something  any  computer  can  do: 
Every  computer  can  store  characters  in 
memory,  receive  input  from  the  keyboard, 
and  so  on. 

Programs  such  as  "TurboTape"  and 
"TurboDisk,"  on  the  other  hand,  are  highly 
machine-specific:  They  exploit  hardware 
features  unique  to  the  Commodore  64, 
VIC-20,  and  1541  disk  drive.  Making  such 
programs  work  on  other  machines  may  be 
technically  impossible,  or  at  least  require 
entirely  different  techniques.  But  our  read- 
ers have  a  habit  of  surprising  us.  Perhaps 
there's  someone  out  there  working  on  Atari 
TurboDisk  or  TurboTape  right  now. 


Hints  For  ON-GOTO 

I  want  to  commend  you  on  promoting 
the  ON-GOTO/ON-GOSUB  com- 
mands ["The  Beginner's  Page,"  COM 
PUTEl,  March  1985],  but  I  think  you 
missed  the  best  (most  useful)  aspect  of 
them — the  ability  to  perform  math  func- 
tions within  the  line.  In  your  example 
program,  1  would  have  preferred  to  see 
ON  A  — 4  GOTO  linenumber  instead  of 
A  =  A-4:ON  A  GOTO  linenumber.  My 
method  preserves  the  value  of  A  and 
saves  a  line  of  code, 

1  keep  a  stat  file  for  our  church 
Softball  team  on  a  menu-driven  program 
I  wrote.  I've  used  ON-GOSUB  with  the 
function  keys  on  my  Commodore  64  to 
greatly  simplify  coding  [see  below).  The 
function  keys  have  ASCII  values  from 
133  to  140  in  the  order  listed  in  my 
program  (fl,  f3,  f5,  i7,  il,  f4,  f6,  f8),  so 
ASC(F$)- 132  gives  me  nice  neat  num- 
bers from  1  to  8. 

Matthew  Strange 

You're  absolutely  right,  of  course — it  is 
indeed  more  efficient  to  convert  a  value  for 


ON-GOTO/ON-GOSUB  within  the  line 
itself  rather  than  making  it  a  separate  line. 
As  you  point  out,  it  saves  a  little  memory 
and  preserves  the  original  value,  which 
may  be  important  in  some  cases. 

In  general,  the  programming  exam- 
ples in  "The  Beginner's  Page"  are  written 
more  for  clarity  than  for  maximum  effi- 
ciency. For  that  reason,  and  also  to  keep 
the  examples  compatible  with  all  the  com- 
puters we  cover,  each  statement  is  usually 
placed  on  a  separate  line.  (For  instance,  the 
built-in  BASIC  on  the  TI-99/4A  allows 
neither  multistatement  lines  nor  any  com- 
mand following  an  IF-THEN  except 
GCfTO  linenumber.}  Readers  are  encour- 
aged to  experiment  with  the  examples  and 
find  ways  to  optimize  them  for  their  partic- 
ular computer  and  version  of  BASIC. 

Your  method  of  reading  the  Commo- 
dore 64  function  keys  is  efficient  and  can  be 
adapted  to  reading  keys  and  joysticks  on  a 
variety  of  computers.  As  a  module,  it  can 
be  plugged  into  any  program  that  prompts 
a  user  to  select  a  menu  option: 

10    PRINT    "PRESS    PI    TO    VIEW    STA 

TS" 
20    PRINT    "PRESS    F3    TO    UPDATE    S 

TATS  " 
30    PRINT    "PRESS    F5    TO    SAVE    STA 

TS" 
40    PRINT    "PRESS    F7    TO    PRINT    ST 

ATS" 
50    PRINT    "PRESS    F2    TO    ENTER   NE 

W    PLAYERS" 
60    PRINT    "PRESS    F4    TO    CREATE    N 

EW    TEAM    FILE" 
70    PRINT    "PRESS    F6    TO   VIEW    FIL 

E    NAMES" 
80    PRINT    "PRESS    F8    TO    CORRECT 

(SPACE) ENTRY" 
90    PRINT    "PRESS    Q    TO    QUIT" 
100    WAIT    198,1 sGET    F5jIF    F?="Q 

"    THEN    END 
110    IF    ASC(FS)<133    OR    ASC(F$)> 

140    THEN    GOTO    100 
120    ON   ASC(F?)-132    GOSUB    2000, 
3000,1000,3  500,2500,9500,5 
300,4000 

(This  program  fragment  assumes  that 
subroutines  will  be  added  at  the  line  num- 
bers specified  in  the  ON-GOSUB  slate- 


Fly  the  unfriendly  skies. 


You're  in  the  cockpit  of  a  dream  machine  — 
a  bad  dream  for  the  poor  sap  whose  tail  youVe 
waxing.  You  stick  a  silver  bird  up  his  exhaust  and 
as  he  blossoms  into  fire.  And  theti  you  rain  down 
tilence  upon  the  grunts  in  the  tanks. 

Skyfox.  It's  the  fastest-selling  EA 


gauges  &  3  tccupoti  iysiems. 


game  in  history.  It  has  the  most  awesome, 
high-speed  animation  you've  ever  seen  on  your 
wince  computer.  It's  played  to  rave  reviews  in  every  magazine, 

like  pes-       And  it's  yours — at  your  retailer — or  direct  from  EA  at  (800) 

227-6703  with  a  14-day  satisfac- 
tion or  money-back  guarantee. 


from  Electronic  Arts" 


ORDERING  INFORMAnON  &.  MACHINE  AVAILABILITY:  Visit  your  recaiieror  call  (800)  227-6703  (in  CA  call  (800)  632-7979)  for  VISA  or  MasterCard  orders. 
To  purchase  by  mail,  send  check  or  money  order  to  Ekccronic  Arts,  EO.  Box  306,  Half  Moon  Bay,  CA  94019.  Add  S3  for  insured  shipping  &.  handling.  Indicate  machine 
verson  desired.  Allow  l-A  weeks  for  delivery.  Apple  n  family  available  now  at  S39.95.  C-64  available  now  at  S  34,95,  For  a  copy  of  our  complete  catalogue  and  direct  order 
form,  send  50*5  and  a  stamped,  self-addressed  envelope  to  Electronic  Arts,  2755  Campus  Drive,  San  Mateo,  CA  94403, 


meni  in  line  120,  so  if  you  run  the  program 
a$  listed  and  press  a  function  key,  you'll  get 
an  error.) 

The  program  employs  a  couple  of  oth- 
er useful  techniques,  such  as  waiting  for  a 
keystroke  (line  100),  trapping  invalid  input 
(line  110),  and  extracting  numeric  values 
from  string  variables  (lines  110  and  120). 
The  main  point  is  line  120,  which  neatly 
converts  the  value  returned  by  the  func- 
tion key  into  a  value  that  can  be  acted  on 
by  ON-GOSUB.  At  the  same  time,  it  pre- 
serves the  original  value  returned  in  F$. 
It's  a  clever  way  to  organize  a  menu  while 
avoiding  confusion  over  the  staggered 
numbering  of  the  Commodore  64  function 
keys. 

Incidentally,  if  you're  the  statistician 
for  your  church  softball  team,  see  "Softball 
Statistics"  elsewhere  in  this  issue.  You 
may  want  to  include  some  of  its  features  in 
your  own  program. 

Atari  Translator  Disk 

I  would  like  to  know  if  it's  true  that  some 
software  will  not  run  on  the  XL  comput- 
ers unless  you  load  a  spedal  program 
first.  Do  I  have  to  buy  this  program  or  is 
it  available  for  publication?  If  i  have  to 
buy  it,  does  it  come  on  both  cassette  and 
disk? 

Randall  E.  Nowak 

The  program  you're  looking  for  is  the  Atari 
Translator  Disk,  available  from  Atari  and 
some  local  user  groups  for  a  nominal  fee. 
The  part  number  is  DX-5063.  The  Transla- 
tor loads  the  old  Atari  400/800  operating 
system  into  RAM  on  the  800XL  or  600XL 
(with  64K),  temporarily  replacing  the  XL 
operating  system.  With  the  Translator, 
your  XL  computer  can  run  most  programs 
which  were  not  written  to  comply  with 
Atari's  published  guidelines  for  upgrade 
compatibility. 

A  few  independent  software  compa- 
nies also  sell  XL  translator  disks  which 
advertise  more  flexibility  than  the  Atari 
Translator. 


Computer  Vocabulary 

I  want  to  write  a  BASIC  text  adventure 
game  for  my  IBM  PC.  How  can  f  give  my 
program  a  "vocabulary"  so  that  it  un- 
derstands dozens  of  words,  without  us- 
ing IF  statements  to  check  for  every 
word,  in  every  room  of  the  game? 

Bill  Grau 

You're  correct — an  adventure  program 
that  tests  for  every  condition  with  individ- 
ual IF  statements  would  be  woefully  ineffi- 
cient. To  answer  the  second  part  of  your 
question  first,  you'll  want  to  structure  your 
program  in  modular,  rather  than  linear 
fashion.  While  it  seems  straightforward  to 
write  a  separate  routine  for  each  room  in 
the  adventure,  this  is  highly  duplicative 
and  will  make  your  program  as  difficult  to 
debug  as  most  adventures  are  to  play. 


Instead,  use  general  subroutines  that  per- 
form the  same  task  no  matter  where  the 
player  is.  You  need  only  one  routine  to 
analyze  the  player's  input,  simulate  move- 
ment, ha/idle  objects,  and  so  on. 

The  best  way  to  create  a  vocabulary  in 
BASIC  is  with  arrays.  Unlike  a  simple 
variable  which  equates  to  a  single  numeric 
value  (A  =  l)  or  string  of  characters 
(A$  =  "HELLO"),  an  array  is  a  group  of 
related  data  items.  The  short  example  pro- 
gram below  (written  in  plain-vanilla 
Microsoft  BASIC)  creates  a  rudimentary 
vocabulary  with  string  arrays. 

100  DIM  VB»C4),0B4t4) :FDR  J=l 

TO  4: READ  fi*,B* 
110  VB»(J)=fiS:nB*(J)=B«:hiEXT 

J 
120  DftTfl  TAKE,  GOLD,  PUT,  SWO 

RD,  EAT,  FOOD,  THROW,  ROC 

K 
130  SP=0:I*="":\/BS="":  0B»=  "  "  : 

PRINT  "YOUR  COMMAND"; 
140  INPUT  I*: FDR  J=l  TO  LEM ( I 

t) ;T*=MID4 (I«, J, 1) 
150  IF  TS=CHRS(32>  THEN  SP= 1 : 

GOTO  1B0 
160  IF  SP=1  THEN  OB*=aB*+Tt 
170  IF  SP=0  THEN  VB*=VB*+T» 
1B0  NEXT  J:VB=0:FOR  J=l  TO  4 
190  IF  VB*=VB*(J)  THEN  VB=J 
200  NEXT  J 

210  IF  VB=0  THEN  PRINT  "DON'T 
UNDERSTAND  '■;VB«:  GOTO  1 

30 
220  OB=0:FOR  J=l  TO  4: IF  0B*= 

OB* (J)  THEN  OB=J 
230  NEXT  J 

240  IF  OB=0  THEN  PRINT  "DON'T 
UNDERSTAND  ";OBt:  GOTO  1 

30 
250  PRINT  "VERB  #";VB:",  OBJE 

CT  #";OB:GDTD  130 

Lines  100-120  store  the  vocabulary  in 
two  string  arrays.  The  array  named  VB$0 
holds  four  verb  strings  (TAKE,  PUT,  EAT, 
and  THROW)  and  the  OB$0  array  holds 
four  object  strings  (GOLD,  SWORD, 
FOOD,  and  ROCK). 

Once  the  arrays  are  set  up,  each  word 
can  be  referenced  by  the  index  number 
that  identifies  its  position  ivithin  the  array. 
For  instance,  in  response  to  the  statement 
PRINT  V$(l),  the  computer  prints  TAKE. 
The  statement  IFA$=0B$(1)  is  true  when 
A$  equals  GOLD,  and  so  on.  Since  the 
vocabulary  has  been  reduced  to  reference 
numbers,  you  can  cycle  through  the  arrays 
with  simple  FOR-NEXT  loops,  testing 
whether  your  input  words  match  anything 
in  the  vocabulary.  This  is  far  more  efficient 
than  using  a  multitude  of  IF  statements. 

Lines  140-180  bring  the  input  sen- 
tence into  the  computer  as  one  string  (1$) 
and  break  it  into  two  parts:  the  verb  string 
V$  and  the  object  siring  0$.  Note  that 
simple  (nonarray)  variables  like  VS  and  0$ 
are  distinct  from  array  variables  like  V$0 
and  0$().  (Because  of  space  limitations,  the 
program  uses  a  primitive  method  to  extract 
verb  and  object  from  the  input  sentence:  It 
looks  for  the  space  character  that  separates 
the  words,  assigning  every  character  before 


the  space  to  V$,  and  everything  after  it  to 
OS.) 

Once  the  verb  and  object  have  been 
extracted,  lines  180-200  compare  the  verb 
string  V$  to  every  verb  in  the  vocabulary 
array  V$0.  The  variable  V  signifies  the 
verb  number.  As  soon  as  V$  matches  up 
with  a  word  in  V$0,  V  records  the  V$0 
index  number  for  future  reference.  If  V$ 
isn't  found  in  the  vocabulary,  line  210 
prints  the  unknown  word  and  lets  the 
player  try  again.  A  similar  loop  in  lines 
220-230  compares  the  object  siring  0$  to 
each  word  in  the  O$0  array,  and  records 
the  object  number  in  the  variable  0. 

Using  arrays  makes  your  program  far 
easier  to  modify.  For  instance,  say  that 
you've  written  an  adventure  using  dozens 
(or  more  likely,  hundreds)  of  separate  IF 
statements,  and  then  decide  to  change  one 
of  the  vocabulary  words.  It  could  take 
hours  to  locate  and  change  every  line  that 
uses  that  word.  If  your  vocabulary  is  stored 
in  arrays,  you  can  make  the  same  change  in 
seconds,  by  replacing  one  word  in  a  DATA 
statement.  To  expand  the  vocabulary,  just 
add  more  DATA  items  and  increase  the 
values  in  the  DIM  statement  and  FOR- 
NEXT  loops  accordingly. 

Of  course,  there's  much,  much  more  to 
writing  a  playable  adventure.  But  arrays 
can  help  there,  too.  Use  a  room  descrip- 
tion array  to  store  the  description  strings 
for  each  room,  and  a  room  connection 
array  to  show  the  connections  between 
them.  The  location  of  each  object  can  be 
stored  in  an  object  location  array,  and  so 
on.  You'll  want  a  more  sophisticated  pars- 
ing routine  as  well,  to  pick  apart  the  input 
sentence.  These  techniques  and  others  are 
explained  in  COMPUTEI's  Guide  to  Ad- 
venture Games  by  Gary  McGath. 


Commodore  Chips,  Anyone? 

We  are  a  group  of  about  200  Commo- 
dore owners  in  Sao  Paulo,  Brazil.  Be- 
cause of  import  restrictions  and  the  great 
distance  involved,  we  are  not  able  to 
send  Commodore  products  to  the  Unit- 
ed States  for  servicing.  Some  minor  re- 
pairs, like  aligning  the  1541  disk  drive, 
we  manage  to  do  here.  But  we  have  not 
been  able  to  find  anyone  who  sells 
microprocessor,  interface,  or  PLA  chips. 
On  a  recent  visit  to  New  York  City,  I 
inquired  of  several  dealers,  but  they 
could  not  help  us. 

Alberto  Dayan 

Rua  Albuquerque-Lins  867  Apt.  1401 

Sao  Paulo,  01230  S.P. 

Brazil 

Every  once  in  a  while,  our  mailbag  con- 
tains both  an  excellent  question  and  an 
excellent  answer  (see  the  following  letter). 
Unlike  most  other  computer  companies. 
Commodore  manufactures  its  own  chips; 
in  1976  it  acquired  MOS  Technologies 
(which  invented  the  6502  microprocessor), 
and  it  still  manufactures  the  6510  micro- 
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Catch  •  ^ 


Anaiiabte  Now! 

TrMa  Fever 

Vblume  2 

and 

Super 

Sports 


The  Hottest 
New  Game  In  "RA/vn 


// 


iiivia 


^evei 


The  entertainngi 
fun-filled  tnvia. 


Trivia  Fever  is  absolutely  unique  —  it's  the  only  software  entertain- 
ment package  that  can  be  enjoyed  with  or  without  a  home  com- 
puter! When  played  on  your  home  computer,  Trivia  Fever  is  a 
refreshing  alternative  to  all  those  shoot'em  up  games.  An  elected 
"Master  of  the  Game"  uses  the  computer  to  randomly  select  sub- 
ject categories,  handicap  players,  generate  questions  and  answers, 
keep  score  automatically,  and  more!  Instructive  by  its  very  nature. 
Trivia  Fever  can  be  enjoyed  by  up  to  8  individuals  or  teams.  And 
when  played  without  a  computer.  Trivia  Fever  has  all  the  best  fea- 
tures of  the  "popular"  trivia  games  plus  more  —  all  without  the 
cumbersome  board,  cards,  and  littfe  game  pieces.  You  can  play  in  a 
car,  on  vacation,  anytime,  anywhere!  And  Trivia  Fever  is  by  far  the 
best  Trivia  game  available  anywhere.  Here's  why: 

Trivia  Fever  offers  thousands  of  challenging  questions  in  7  inter- 
esting categories,  so  there's  something  for  everyone.  Each  category 
has  questions  with  3  lev- 
els of  difficulty,  which 
score  comparable  points. 
What's  more,  Trivia  Fever 
allows  players  to  HANDI- 
WP  all  those  so-called 
"trivia  experts"  three  dif- 
ferent ways,  giving  every- 
one a  chance  to  win.  And 
players  can  easily  control 
the  length  of  play  from 
quick  thirty  minute 
games  to  multi-hour  party  marathons! 

Trivia  Fever  is  unique,  entertaining,  educational,  and  most  of  all 
FUN.  And  at  $39.95,  Trivia  Fever  is  destined  to  quickly  become  the 
best  selling  software  entertainment  package  of  all  time.  There's 
even  a  $5  rebate  available  to  any  non-computer  users  who  return 
the  computer  diskette. 

Trivia  Fever  can  be  enjoyed  on  the  Commodore  64,  IBM  PC  &  PCjr 
and  compatibles,  Apple  fl  series,  and  others.  So  don't  delay.  Catch 
Trivia  Fever  at  your  favorite  software  retailer  today! 


For  additional  Information  call  617-444-5224,  or  write  to: 


At  $39.95,  Trivia  Fever  comes  complete  with  Question 
and  Answer  Book,  Category  Selector,  and  Tally  Sheets  to 
be  used  when  played  without  a  computer. 


APSI 


P.O.  Box  533 
Needham,  MA  02194 


Vmi  Ftver  n  a  tradefnarSc  of  Pfo1eu*ondil  Sofiware,  Inc 


processor,  SID  chip,  and  other  major  com- 
ponents for  the  Commodore  64. 

Commodore  has  traditionally  shown 
little  interest  in  making  its  own  chips 
available  to  individuals.  One  reason  for 
this  is  undoubtedly  economics:  Commo- 
dore is  in  the  business  of  selling  computers, 
not  electronic  parts,  and  has  little  or  no 
economic  incentive  to  market  chips  at  the 
retail  level. 

By  the  time  you  read  this,  however, 
the  chip  famine  may  be  ending.  According 
to  a  company  representative.  Commodore 
intends  to  let  its  new  network  of  service 
centers  provide  repair  parts  directly  to 
consumers.  Of  course,  it's  hard  to  predict 
exactly  when  this  will  become  a  reality.  In 
any  case,  once  the  national  service  network 
is  established,  Commodore  plans  to  abolish 
its  exchange  program.  You  will  no  longer 
be  able  to  replace  damaged  Commodore 
products  by  sending  them  back  to  the  fac- 
tory with  a  check. 

Commodore  Repair  Parts 

After  you  published  my  address  in  com- 
pute! (December  1984),  I  got  a  great  deal 
of  mail  from  readers  with  repair  prob- 
lems. I  now  have  a  supplier  for  all  Com- 
modore parts,  including  chips.  If  anyone 
has  difficulty  getting  a  part,  I  can  help.  I 
also  welcome  questions  on  repairs. 

Steve  Fogolini 

8232  Richard  Street 

Fort  Worth,  TX  76108 

Thank  you  for  the  information. 

Atari  String  Handling 

I  recendy  heard  that  the  Atari  600XL 
computer's  built-in  BASIC  doesn't  use 
string  arrays.  Does  this  mean  that  it 
won't  accept  programs  that  use  string 
arrays  from  the  other  Atari  computers? 
Scott  Powers 

There's  nothing  to  worry  about.  The  BASIC 
built  into  the  600XL  and  800XL  (and  neiv 
65XE/130XE)  is  fully  compatible  with  ear- 
lier Atari  BASICS.  The  information  you 
heard  about  string  arrays  refers  to  Atari 
BASIC  in  general.  True  string  arrays  work 
like  numeric  arrays,  where  each  element  is 
a  complete  string  consisting  of  one  or  more 
characters.  For  example,  the  statement 
A$(W)=  "HELLO"  would  assign  the  com- 
plete string  "HELLO"  to  the  tenth  element 
of  the  string  array  AS-  In  Atari  BASIC, 
however,  this  statement  places  the  string 
"HELLO"  into  the  tenth  position  of  the 
string  A$. 

Versi07is  of  BASIC  that  support  string 
arrays  cannot  use  the  convenient  Atari 
method  of  substringing,  such  as  A$(5,5)  to 
access  the  fifth  character  of  A$,  but  use 
functions  like  MID$(A$,5,1)  instead.  The 
Atari  can  simulate  string  arrays  with 
substrings.  A  long  string  can  hold  many 
substrings.  For  example,  to  convert  the 
statement  A$(5)="CAr',  assuming  you 


limit  the  length  of  each  substring  to  (en 
characters,  you  can  use  the  statement 
A$(5'10-9,5*10)="CAT".  Since  the 
length  of  an  Atari  string  is  limited  only  by 
the  amount  of  free  memory,  you  can  store  a 
great  number  of  substrings  within  one  long 
string. 

If  you  prefer  a  BASIC  with  true  string 
arrays,  alternative  BASICs  (including 
Microsoft  BASIC)  are  available  on  car- 
tridge and  disk  for  Atari  computers. 

Hex/Decimal  Conversion 

Is  there  a  simple  formula  for  converting 
hexadecimal  numbers  to  decimal,  and 
vice  versa?  The  manual  for  my  computer 
(an  Apple  clone)  doesn't  explain  this  in 
much  detail. 

Howard  Heapy 

Here's  a  short  Microsoft  BASIC  program 
that  does  both  conversions  within  the 
range  of  hexadecimal  $0-$FFFF  (decimal 
0-65,535).  When  converting  from  hex  to 
decimal,  enter  a  four-digit  hex  number, 
using  leading  zeros  when  appropriate.  For 
instance,  enter  OOFF  to  find  the  decimal 
equivalent  of  hexadecimal  $FF. 

10  HE«="012345(b7S9ABCDEF" 
20  PRINT  "ENTER  1  FOR  DEC  TD 

HEX" 
30  PR1NT"ENTER  2  FDR  HEX  TO  D 

EC"; I  INPUT  A 
40  IF  fl=2  THEN  100 
50  IF  ftOl  THEN  20 
60  PRINT  "ENTER  DEC  »";: INPUT 
ft: B=1:C=3:D=16-^C SPRINT  A; 
1  PRINT  "=  *"i !fl=A+l 
70  IF  A-D>0  THEN  A=A-D; 6=6+1: 

BDTG  70 
80  PRINT  MID*(HE*,B, 1) ; :B=1:C 
=C-l!D=16''C:IF  O-l  THEN  7 
0 
90  PRINT: PRINT: GOTO  20 
100  PRINT  "ENTER  HEX  «";:INPU 

T  H*:D=0:Q=3 
110  FOR  M=I  TO  4: FOR  W=0  TO  1 

5 
120  IF  MID«{HS,M, 1)=MID»(HE*, 

W+1,1)  THEN  140 
I3d  NEXT  W 

140  D1=W«(16''<Q)  )  sD=D+Dl3Q=Q- 
l!NEXT  M 
150  DE=INT(D):PRINT"«";H«; '■  = 

";DE 
160    PRINT: GOTO    20 

Atari  users  should  make  the  following 
changes  to  this  program: 

5  DIM  HE* ( 16) , H« (4) 

80  J=l : H«=HE* (B, B+J-1) s ? 

Ht;  !B=1  !  C  =  C-1  !  D=16-"C:  I 

F  O-l  THEN  70 
120  IF  HE«  (W+1  ,  H-i-l  )  =H«  (M, 
M)  THEN  140 


Ti  Serial  Communications 

I  own  a  TI  computer  and  have  recently 
decided  to  buy  a  printer.  While  shop- 
ping around,  I  noticed  that  some  print- 
ers come  with  built-in  or  optional 
RS-232-C  serial  interfaces.  Does  this 
mean  that  I  can  connect  the  printer  to 


my  computer  with  a  "run  of  the  mill" 
printer  cable,  or  would  I  still  need  to  buy 
a  TI  interface  card  to  get  the  printer 
working?  If  I  need  the  interface  card, 
what  purpose  does  the  built-in  interface 
serve? 

Crandall  Chow 

You  do  need  the  interface  card.  A  serial 
data  link  can  transmit  one  bit  (binary  1  or 
0)  of  information  at  a  time,  but  the  com- 
puter and  printer  handle  each  ASCII  char- 
acter as  a  byte  (eight-bit  binary  number). 
Since  a  byte  contains  eight  bits,  you  can't 
send  the  whole  chunk  at  once  through  a 
serial  link. 

Picture  a  group  of  eight  friends  walk- 
ing side  by  side.  If  they  come  to  a  narrow 
turnstile,  they  can't  all  enter  at  once,  so 
they  pass  through  singly.  When  everyone  is 
through  the  turnstile,  they  reassemble  the 
group  and  march  eight  abreast  once  more. 
First  the  group  is  broken  up,  then  it  is 
reassembled. 

The  analogy  explains  why  you  need 
an  interface  at  both  ends  of  the  serial  link. 
At  the  computer's  end,  you  need  an  inter- 
face to  break  each  ASCU  byte  into  eight 
bits  and  send  each  bit  down  the  line  in 
order.  At  the  other  end  of  the  link,  the 
printer's  interface  converts  each  series  of 
eight  bits  back  into  a  byte  which  the  print- 
er can  handle  as  an  ASCII  character.  In 
addition  to  the  data  bits,  extra  bits  are 
passed  between  the  computer  and  printer 
to  coordinate  the  transmission  process. 

Because  each  bit  has  to  pass  singly, 
you  might  expect  serial  transmission  to  be 
slower  than  parallel  data  transfer,  which 
passes  more  than  one  bit  at  once.  This  is 
not  always  true,  however.  Since  serial 
transmission  uses  a  single  data  wire,  it's 
less  susceptible  to  electrical  interference 
than  the  parallel  arrangement,  where  a 
signal  traveling  down  one  of  the  eight 
parallel  data  wires  tends  to  create  "noise" 
on  neighboring  data  wires.  Hence,  you  can 
accurately  send  bits  serially  much  faster 
than  you  can  send  bytes  in  parallel.  For 
example,  the  RS-232  serial  Tl-to-priiiter 
link  we  use,  which  operates  at  9600  bps 
(bits  per  second),  is  as  fast  or  faster  than 
any  of  the  parallel  links  we  use  with  other 
computers  and  printers. 

Multiple  Entry  Points  In  Ml 

While  disassembling  ROM  routines  in 
my  Commodore  64,  1  noticed  that  the 
LOAD  routine  at  $E168  seems  to  begin 
with  the  low  byte  of  an  address,  rather 
than  an  opcode.  This  is  true  of  other 
routines  as  well.  Is  there  something 
wrong  with  my  disassembler,  or  have  I 
missed  something? 

J.  C.  Vollmer 

There's  nothing  wrong  with  your  disas- 
sembler. You've  come  across  a  memory- 
saving  machine  language  trick  that  can 
look  baffling  unless  you  already  know  its 
purpose:  to  provide  more  than  one  entry 


point  to  a  routine.  Here's  the  segment  of 
code  in  question: 

VERIFY      E165  A9  01         LDA  #501 
El  67  2C  .byte  2C 

LOAD         E168  A9  00         LDA  #S00 
E16A  85  OA        STA  $0A 
E16C  (common  routine  begins 
here) 

The  64  uses  the  routine  beginning  at 
$E16C  to  do  two  different  jobs,  performing 
LOAD  when  the  flag  in  location  $0A  is  0, 
or  performing  VERIFY  when  the  flag  is  1. 
When  you  enter  this  routine  at  $E168,  the 
computer  performs  IDA  it$00:STA  SOA 
(load  accumulator  with  0,  store  accumula- 
tor in  SOA  to  set  the  flag  for  WAD)  and 
falls  through  to  the  common  code  begin- 
ning at  $E16C.  If  you  start  disassembling 
at  $E168,  that's  exactly  what  you'll  see. 

So  far,  so  good.  But  the  byte  at  location 
$E167  looks  out  of  place.  To  see  what 
purpose  it  serves,  look  at  the  same  code  as 
it  appears  when  you  start  disassembling  at 
$£165; 

VERIFY   E16S  A9    01  LDA  #$01 

E167  2C    A9    00     BIT    S00A9 
E16A85     OA  STA  $0A 

E16C  (common  routine  begins 
here) 

After  performing  LDA  #$01  (load  the 
accumulator  with  1  for  VERIFY),  the  com- 
puter performs  BIT  $00A9.  BIT  compares 
jiondestruclively:  it  is  ordinarily  used  to 
test  certain  bits  without  disturbing  the 
value  stored  in  the  accumulator.  Since  the 
2C  opcode  is  BIT  with  absolute  addressing, 
the  two  bytes  after  $E167  are  picked  up  to 
form  a  low  byte /high  byte  address.  When 
the  computer  reaches  $E16A,  it  stores  a  1 
in  location  SOA  to  set  the  flag  for  VERIFY. 
We  don't  care  about  the  results  of  the  BIT 
comparison— it's  just  used  to  preserve  the 
1  in  the  accumulator  and  skip  over  the 
bytes  in  $E168  and  $E169. 

Of  course,  the  same  thing  could  have 
been  done  by  inserting  BNE  $E16A  after 
LDA  #$01.  But  that  would  use  one  more 
byte — a  negligible  difference  in  most  pro- 
grams, but  significant  if  you're  trying  to 
pack  an  operating  system  into  limited 
ROM  space.  The  same  technique  is  used  to 
provide  nine  different  entry  points  to  an 
error-handling  routine  at  $F6F8. 

Note  that  your  confusion  arose  partly 
because  you  disassembled  SE168  by  scroll- 
ing forward  from  a  lower  address.  When 
you  begin  at  $E16S,  A9  00  disassembles  as 
IDA  #SO0.  When  you  enter  at  SE165  and 
scroll  forward,  the  same  tivo  bytes  disas- 
semble as  S00A9. 

In  this  case,  there's  a  good  reason  for 
the  difference.  But  any  disassembler  can  be 
fooled  on  occasion,  particularly  if  you 
scroll  forward  from  data  into  a  section  of 
meaningful  code.  For  instance,  the  disas- 
sembler interprets  a  space  character  ($20) 
as  a  }SR  instruction,  and  picks  up  the  two 
following  bytes  to  form  an  address.  When 
in  doubt,  begin  disassembling  at  the  exact 
spot  where  a  routine  begins.  © 
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The  idea  behind  a  computer  database  program  is  simple — 
software  which  lets  you  store,  organize,  and  selectively  retrieve 
all  kinds  of  information.  And  yet  few  programs  can  cause 
more  frustration  than  a  poorly  chosen,  inappropriate  database 
system.  No  matter  how  big  or  small  your  information  process- 
ing needs,  it's  better  to  pinpoint  what  you  need  before  you  buy. 
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Introduction 

Some  people  avoid  database  programs  because  of  the  often  laborious 
and  intimidating  commands  and  rules  which  must  be  learned. 

Realizing  this,  an  increasing  number  of  manufacturers  are  mak- 
ing their  programs  easier  to  use,  more  intuitive,  and  less  dependent 
on  arcane  command  codes  and  relational  symbols.  There's  even  a 
database  program  for  children — Friendly  Filer  (Grolier  Electronic 
Publishing,  $39.95),  designed  to  work  with  Friendly  Files  ($14.95),  a 
series  of  prepared  database  disks  on  various  topics. 

Friendly  Filer  is  menu-driven  and  includes  a  self-teaching  tutori- 
al on  the  fundamentals  of  database  operations.  Though  aimed 
primarily  at  children  in  the  classroom  or  home  (ages  eight  and 
above),  it's  also  an  easy  introduction  to  simple  filing  and  retrieving 
for  adults. 

The  sample  screen  shown  here  (Apple  Il-series  version)  displays 
a  portion  of  the  program  which  is  sorting  the  U.S.  presidents  in  the 
chronological  order  of  their  tenure  in  office.  From  what  is  displayed, 
you  could  also  arrange  and  retrieve  information  under  the  categories 
of  NAME  and  PARTY  as  well.  The  program  can  include  up  to  360 
records  of  7  fields  each,  with  37  characters  per  field.  (Versions  are 
also  available  for  the  IBM  PC,  PCjr,  and  Commodore  64.) 


You're  getting  rea  dy  to  buy  your 
first  database  program. 
You've  read  the  magazines 
and  realize  that  the  database  world 
can  range  from  a  free  type-in 
BASIC  listing  to  a  $700  integrated 
software  package — and  everything 
in  between.  How  do  you  determine 
which  program  is  right  for  you? 

Comparing  products  isn't  easy, 
but  keep  in  mind  that  there  are 
three  general  types  of  databases 
classified  by  the  method  and  extent 
of  their  operations:  the  filing  pro- 
gram, the  file  manager,  and  the  full- 
fledged  database  management 
system,  or  DBMS. 

Manufacturers  may  fail  to  dis- 
tinguish between  the  three  when 
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promoting  their  products,  but 
knowing  the  differences  can  save 
you  money  and  unnecessary  head- 
aches. For  instance,  a  business  per- 
son who  tries  to  use  a  simple  file 
manager  to  keep  track  of  extensive 
employee  or  inventory  records  will 
immediately  realize  that  the  limita- 
tions far  outweigh  the  cost  savings. 
Similarly,  if  your  only  desire  is  to 
organize  a  holiday  card  list  or  a 
bridge  club  roster,  a  major  database 
system  such  as  dBase  III  for  the  IBM 
PC  or  Microsoft  FILE  for  the  Macin- 
tosh will  be  far  too  expensive  and 
complicated. 

Every  database,  no  matter  how 
large  or  small,  is  built  on  three 
types  of  related  organizing  struc- 


tures: the  field,  the  record,  and  the 
file.  How  a  database  uses  these 
components  determines  whether 
the  software  is  a  filing  program,  a 
file  manager,  or  a  database  system. 


Starting  with  the  simplest  com- 
ponent first,  a  field  is  merely  a 
basic  piece  of  information:  a 
name,  an  address,  a  phone  number, 
a  zip  code,  an  inventory  number,  or 
whatever.  A  field  could  consist  of 
only  one  character  or  many  charac- 
ters. Some  database  programs  limit 
the  length  of  each  field,  and  others 
let  you  specify  any  length. 

A  collection  of  related  fields  is 
a  record.  For  example,  a  record  in  an 
address  database  might  consist  of 
six  fields:  the  person's  name,  street 
address,  city,  state,  zip  code,  and 
phone  number.  (Some  programs 
might  treat  the  area  code  as  a  sepa- 
rate field  from  the  local  phone 
number,  or  lump  the  whole  address 
into  a  single  field.)  You  can  think  of 
a  record  as  an  index  card  in  a  filing 
box. 

Finally,  a  collection  of  related 
records  is  a  file.  Extending  the 
above  example,  all  the  names,  ad- 
dresses, and  phone  numbers  in 
your  list  would  make  up  a  file.  Or  a 
list  of  all  the  employees  working  for 
a  department  or  a  company  could 
be  a  file.  If  you  think  of  a  record  as 
an  index  card  containing  written 
fields,  then  a  file  would  be  a  whole 
box  of  index  cards. 

For  small  databases,  card  files 
are  sufficient.  The  advantage  of  a 
computerized  database  is  that  you 
can  more  easily  add,  delete,  and 
update  records,  search  for  individ- 
ual records  and  fields,  and  sort  re- 
cords according  to  information  in 
various  fields.  Suppose  a  card  file 
contains  300  cards,  each  represent- 
ing a  member  of  an  organization. 
The  cards  are  arranged  in  alphabet- 
ical order  by  last  name.  It's  easy  to 
look  up  a  certain  record  by  name, 
but  if  you  want  to  find  out  how 
many  members  have  not  paid  their 
1985  dues,  you  have  to  laboriously 
examine  each  card  in  the  whole  file. 
A  computerized  filing  program 
gives  you  the  power  to  find  that 
information  almost  instantly.  If  the 
payment  status  of  dues  is  kept  as  a 
field  within  each  record,  you  can 
just  ask  the  program  to  print  out  all 
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As  developers  of  commercial  database  programs  strive  to  make  their 
products  easier  and  more  flexible  to  use,  they  are  turning  to  such 
features  as  help  screens  and  pop-up  information  windows. 

Batteries  Included's  new  version  of  The  Consultant  database 
management  system  ($79.95  for  Commodore  64)  includes  help 
screens  in  the  form  of  pop-up  windows.  In  the  sample  shown  here,  a 
window  has  appeared  over  the  form  being  used  to  catalog  programs. 
The  help  screen  has  reminders  about  the  relational  modifiers  which 
are  used  to  help  order  the  information  with  The  Consultant.  Another 
reminder  along  the  bottom  of  the  window  advises  you  that  each  field 
may  have  its  own  status. 


Integrated 


Some  database  programs  can  now  generate  graphics  to  represent 
information  contained  in  their  files. 

The  new  IBM  PC  and  PCjr  version  of  Timeworks'  Data  Manager 
2,  for  example,  is  a  storage  and  retrieval  system  which  also  contains 
report-writing,  graphics,  and  label-making  capabilities.  It's  priced  at 
$129.95.  In  addition  to  the  graphics  features,  the  program  can  be 
integrated  with  Timeworks'  Word  Writer  word  processor  so  you  can 
transfer  data  to  documents.  (Commodore  64  version  $49.95.) 

In  the  sample  screen  shown  here,  the  names  of  sales  team 
members  and  their  projected  sales  totals  and  percentages  have  been 
pulled  out  of  the  database  and  combined  to  create  a  pie  chart. 


the  records  with  a  zero  in  the  dues 
field.  The  more  sophisticated  file 
managers  and  database  systems 
provide  even  more  ways  to  order 
and  retrieve  information. 


Some  inexpensive  database 
packages  are  little  more  than 
filing  programs.  That  is,  they 
let  you  put  together  your  member- 
ship list  and  set  a  certain  number  of 
key  fields  which  can  be  recalled.  A 
simple  filing  program  might  let  you 
assign  Dues  Paid  as  a  key  field.  By 
commanding  the  program  to  search 
for  this  key  field,  you  could  quickly 
call  up  all  of  the  records  of  those 
who  have  paid  up. 

Since  these  primitive  filing 
programs  promote  ease  of  use  over 
more  powerful  features,  often  they 
let  you  add  information  to  each  per- 
son's record  without  worrying 
about  strictly  defining  each  catego- 
ry. More  advanced  databases  are 
very  exacting — and  unforgiving — 
in  the  ways  they  make  you  work 
with  information. 

The  tradeoff  here,  of  course,  is 
that  with  a  filing  program  you  can 
quickly  and  easily  keep  up  with 
your  total  list  of  members,  but  you 
may  not  be  able  to  selectively  re- 
trieve as  much  information  as  you 
could  with  other  systems.  How 
many  members  have  children? 
Which  members  have  volunteered 
to  drive  their  own  cars  on  outings? 
Do  some  members  live  on  the  same 
street  or  in  the  same  city  or  state? 
The  answers  to  these  questions 
may  not  be  retrievable  unless 
you've  already  defined  the  relevant 
information  as  key  fields.  Even 
then,  you  can't  expect  a  simple  fil- 
ing program  to  contain  all  of  the 
powerful  features  of  more  complex 
(and  expensive)  software. 

The  next  level  of  database  soft- 
ware is  usually  called  a  data  manag- 
er or  file  manager.  This  is  the  type  of 
database  most  often  used  in  homes, 
schools,  and  some  small  business- 
es. While  not  as  powerful  as  full- 
fledged  database  management 
systems,  file  managers  have  much 
more  flexibility  than  filing  pro- 
grams. On  the  other  hand,  you'll 
have  to  learn  and  follow  a  more 
rigid  system  of  data  entry. 

For  instance,  one  of  the  attrac- 
tions of  a  simple  filing  program  is 
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that  you're  generally  free  to  enter 
any  data  you  want  without  worry- 
ing about  the  number  of  characters 
in  a  particular  field,  the  number  of 
fields  per  record,  and  the  number  of 
records  per  file.  But  most  file  man- 
agers require  you  to  preset  all  of 
those  variables  before  you  begin  to 
enter  the  data.  Therefore,  you  have 
to  be  fairly  sure  about  the  infor- 
mation you  want  to  keep.  If  you 
don't  allow  enough  room,  the  data- 
base will  be  so  limited  that  you 
won't  be  able  to  fully  use  all  of  the 
program's  features.  But  if  you  pro- 
vide too  much  room  for  your  re- 
cords, valuable  storage  space  will 
be  wasted. 


Perhaps  the  most  important  dif- 
ference between  a  file  manag- 
er and  a  full-fledged  database 
management  system  is  that  the  lat- 
ter allows  you  to  work  with  more 
than  one  file  at  a  time.  To  transfer 
information  between  files,  a  file 
manager  usually  requires  you  to 
close  the  first  file,  open  the  second 
file,  get  the  information,  close  the 
second  file,  open  the  first  file,  and 
return  to  the  record  where  you  left 
off.  A  true  database  management 
system,  however,  lets  you  work  be- 
tween at  least  two  files  simulta- 
neously. In  many  cases,  they  also 
permit  you  to  cross  multiple  records 
as  well. 

One  problem  with  a  powerful 
database  system  such  as  dBase  11  for 
the  Apple  II  family,  dBase  III  for 
IBM  computers,  or  integrated  pack- 
ages like  Lotus  2-2-3  is  that  they 
require  extensive  amounts  of  time 
and  effort  to  learn.  These  systems 
can  be  so  daunting  that  they  have 
spawned  an  entire  subindustry 
which  offers  educational  courses, 
seminars,  and  books  just  to  teach 
individuals  how  to  operate  the  pro- 
grams. One  company — Chase  Sci- 
entific, Inc.,  of  Santa  Monica, 
California — even  sells  a  series  of 
videocassette  training  tapes  for  a 
wide  range  of  the  most  powerful 
databases,  spreadsheets,  and  inte- 
grated business  packages.  The  vi- 
deocassettes  walk  new  users 
through  the  jargon,  command 
codes,  and  complex  options  which 
are  a  part  of  these  powerful 
packages. 
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Beyond  complex  key  words,  command  codes,  and  data  entry  forms  is 
the  powerful  yet  easy  to  use  database  of  the  future,  perhaps  best 
exemplified  today  by  Odesta's  Helix  for  the  512K  Macintosh  with 
external  disk  drive  or  hard  disk. 

Priced  at  $395,  Helix  is  called  "a  data-based  information  man- 
agement and  decision  support  system."  That  translates  into  the 
power  and  flexibility  of  major  database  management  systems  plus  a 
Macintosh  working  environment  which  helps  even  the  novice  com- 
puter user  perform  a  variety  of  data  manipulation,  calculation,  and 
analysis  functions. 

Among  other  things.  Helix  lets  you  build  visual  flowcharts 
without  worrying  about  command  codes,  file  and  retrieve  infor- 
mation across  fields  and  records,  and  work  with  several  windows  of 
information  at  the  same  time.  The  program  simultaneously  updates 
information  in  each  window.  You  can  also  build  special  application 
models  and  templates  for  different  needs. 

In  the  screen  shown  here,  Helix  has  correlated  shipping  and 
pricing  information  for  a  business  database.  Except  for  three  num- 
bers in  the  upper  window,  the  user  did  not  have  to  type  anything  to 
calculate  information  within  different  files.  Most  Helix  functions  are 
selected  from  pulldown  menus  with  a  mouse  controller. 


If  you're  planning  to  purchase 
a  database  program,  here  are  a  few 
fundamentals  to  keep  in  mind: 

•  Can  you  get  along  without  a 
computer  database?  Database  sys- 
tems and  file  managers  often  wind 
up  in  closets  when  people  find  that 
they're  spending  more  time  and  ef- 
fort on  the  computerized  file  than 
was  previously  spent  on  index 
cards  or  sheets  of  paper — without  a 
gain  in  productivity. 

•  How  will  you  use  your  data- 
base? This  is  one  of  the  most  critical 
decisions  you'll  make.   It's   also 


most   mistakes    are    made 
a  database  program  is  pur- 


where 
when 

chased.  If  you're  in  business,  you'll 
have  to  think  ahead  to  the  specific 
categories  of  data  organization  and 
retrieval  you'll  need — inventory, 
employee  files,  financial  records, 
client  lists,  etc.  The  program  should 
be  powerful  enough  to  handle  any 
anticipated  demands  because  it's 
not  always  easy  (and  frequently  im- 
possible) to  transfer  information 
from  one  database  program  to  an- 
other. On  the  other  hand,  if  your 
application  is  not  quite  so  impor- 
tant, it  makes  little  sense  to  spend 
$500  for  a  program  to  keep  track  of 
something  like  a  record  collection. 


MastEr  Of  The  Lamps: 
AUnique  Adventure  In  Home  Computer  Software. 


Hie  King  Is  Dead 
Yydne  Next  In  Line 


But  wait.  Before  you  put  on  the  jeweled  turban 
and  lift  the  royal  sabre,  there  are  a  few"fonnalities" 
you  must  go  through.  Sometimes. .  ."deadly" 
formalities. 

When  the  king  dies,  three  lamps  are  shattered, 
the  pieces  scattered  to  the  wind  and  three  evil 
genies  escape.  Now  your  journey  to  the  throne 
begins,  the  perils  await.  As  prince  you  must  retrieve 
each  piece  of  each  lamp  and  capture  each  genie. 

Fly  with  the  wind  on  your  carpet 
of  magic.  Enter,  if  you  dare  and  if 
you  can,  the  incredible  world  of  each 
genie.  Hold  on  to  your  carpet  as 
you  swoop,  dive,  bank  and  careen 


through  always-moving  diamond-shaped  gates. 
Gates  that  guard  each  genie's  domain.  Calculate. 
Plan.  Consider.  Quickly.  Quickly.  Your  heart  is 
racing.  Your  mind  must  race  ahead. 

Each  genie  will  challenge  you  with  his  ancient, 
mystical  trials. 

Concentrate,  Listen  to  the  tones.  Watch  the 
colors.  Remember  Hone  to  their  sharpest,  your 
mental  and  physical  reflexes.  Each  trial  is  harder 
And  the  time  to  respond  gets  shorter 

The  throne  awaits,  but  not  forever 
The  gong  is  struck,  it  tolls. . . 
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appending — Adding  records  to  an  existing  database  file.  Many 

databases  handle  this  common  task  differently. 

Boolean  logic — Based  on  the  algebraic  logic  developed  by  George 

Boole,  this  logic  system  uses  such  operators  as  AND,  OR,  and  NOT 

for  searching  and  sorting  records. 

calculated  fields — A  feature  of  some  advanced  databases  which 

allows  you  to  set  up  arithmetical  and  sometimes  more  sophisticated 

calculations  with  the  records  and  fields  within  a  file. 

database  management  system  (DBMS) — As  distinguished  from  a 

file  manager  or  filing  program,  this  is  the  most  sophisticated  type  of 

database  program. 

data  entry  form — A  record  structure  supplied  by  the  program  or  set 

up  by  the  user  which  permits  consistent  entry  and  retrieval  of 

information.  Some  databases  provide  templates  of  predefined  forms 

for  specific  applications. 

field — The  pieces  of  information  contained  in  a  record. 
file — A  complete  collection  of  related  records  which  make  up  a 
database. 

file  manager — A  common  form  of  database  program,  more  power- 
ful than  a  simple  filing  program,  but  less  flexible  and  powerful  than  a 
true  database  management  system. 

filing  program — A  simple  database  program  characterized  by  its 
ease  of  use  and  limitations  of  power  and  flexibility. 
index  file — A  collection  of  key  words  or  fields  in  a  database  which 
the  program  uses  to  retrieve  information  you  want. 
key  words  (or  key  fields) — Fields  which  you  define  as  keys  for 
retrieving  certain  kinds  of  information  from  the  database. 

record — A  related  collection  of  fields  that  forms  a  single,  complete 
entry  in  a  database  file. 

relational  database — In  more  advanced  database  management  sys- 
tems, a  method  of  information  storage  and  retrieval  among  different 
files  which  are  internally  linked. 

relational  operators — Sometimes  called  relational  modifiers,  these 
symbols  are  used  in  many  database  programs  to  establish  relation- 
ships between  pieces  of  information.  Among  these  operators  are  less 
than  (<),  greater  than  (>),  and  equal  to  (  =  ). 
sort — The  process  by  which  a  database  program  arranges  infor- 
mation in  any  of  various  ways, 

template — A  predefined  form  or  structure  for  database  organization 
and  information  retrieval.  Templates  make  it  easier  to  enter  raw 
information  into  the  database,  especially  for  inexperienced  users. 


•  Are  the  features  easy  to 
learn,  flexible,  and  powerful?  Ob- 
viously, every  program  has 
tradeoffs.  If  you  can't  preview  the 
program,  read  the  descriptions  on 
the  package  or  in  an  advertisement. 
Watch  out  for  programs  that  avoid 
giving  specific  information  about 
features.  Check  for  magazine  re- 
views, and  ask  around  to  see  if  any 
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friends  or  colleagues  have  expe- 
rience with  the  program.  User 
groups  are  another  source  of  help. 

•  How  many  characters, 
fields,  records,  and  files  will  the 
database  handle?  If  you'll  be  stor- 
ing names,  addresses,  cities,  states, 
and  zip  codes,  you  can  quickly  esti- 
mate how  many  characters  (includ- 


ing spaces)  will  be  required.  You 
can  make  the  same  simple  calcula- 
tions for  any  category  before  buy- 
ing a  program.  What  good  will  the 
database  do  if  your  records  require 
35  characters  per  field  and  the  pro- 
gram allows  a  maximum  of  only  30 
characters? 


•  How  fast  can  the  program 
process  information?  You'll  proba- 
bly have  to  see  the  program  in  ac- 
tion to  answer  this  one.  If  you  plan 
to  work  with  hundreds  of  records  or 
files,  a  slow  database  program  can 
quickly  exhaust  your  patience.  Re- 
member that  the  limiting  factor 
may  be  your  hardware.  For  in- 
stance, a  disk-  intensive  program 
won't  run  very  fast  on  a  Commo- 
dore 64  system  with  a  1541  disk 
drive,  because  the  1541  is  a  rela- 
tively slow  device.  A  program  that 
manipulates  the  whole  file  in  mem- 
ory— as-suming  you  have  enough 
RAM — runs  much  faster. 

•  Do  you  need  to  work  with 
more  than  one  file  of  information 
at  a  time?  Database  management 
systems  generally  allow  this;  file 
managers  may  not;  and  filing  pro- 
grams won't.  Determine  how  im- 
portant this  feature  will  be  to  you. 

•  Will  a  particular  database 
work  with  your  word  processor  or 
spreadsheet?  The  real  convenience 
of  a  database  is  almost  always  tied 
in  some  way  to  your  writing  or 
financial  calculations.  A  database 
which  can't  share  its  information  is 
generally  to  be  avoided. 


•  If  the  database  system  is 
complex,  are  there  books,  video- 
cassettes,  courses,  or  templates 
available  to  help  you  learn  and 
use  the  system?  Check  with  your 
dealer,  and  again,  with  a  local  user 
group. 

•  Does  the  manufacturer  offer 
extended  service  after  purchase? 

A  number  of  companies  maintain 
toll-free  help  lines  to  answer  ques- 
tions and  solve  problems  for  their 
customers.  Some  companies  also 
promise  free  or  inexpensive  up- 
grades as  they  issue  later  and  better 
versions  of  their  programs.  © 


NEW  TITLES 
from  COMPUTE!  Books  for  your  IBM  PC  or  PCjr 

COMPUTE!  Books  offers  vou  these  SIX  new  titles  to  tielp  you  get  MORE  ENJOYMENT.  f^ORE  SATISFACTION,  and  fvlORE 

UTIUTY  from  your  IBM  PC  and  PCjr 


COMPUTEt't 


BEBINNER'S  GUIDE  TO 


WACHIHE  UM6UABE 


Mm 


IBM  PC  &  PCjr 


By  Christopher  D,  Metcolf  and 
Marc  B.  Sugiyama 
Here  Is  everything  an  IBM 
owner  needs  to  know  to  begin 
programming  In  8088  machine 
language  on  an  IBM  PC  or  a 
PC-compatible  computer.  The 
book  includes  complete 
instructions  for  the  use  of  EDLIN, 
DEBUG,  and  the  IBM  Assembler. 
Topics  covered  include  BIOS 
and  DOS  function  interrupts, 
string  instructions,  the  stack, 
and  addressing  modes.  This 
book  is  a  complete  guide  for 
the  beginner  as  weli  as  the 
experienced  programmer. 

$14.95 


By  Russ  Davtes 

Mapping  the  IBM  PC  and  PCjr 
teaches  how  to  use  the  vast, 
but  hidden,  capabilities  of  the 
built-in  hardware  and  software. 
By  exploring  the  structure, 
organization,  ond  meth- 
odology of  the  PC  and  PCjr, 
this  book  reveals  the  limits  and 
potential  of  these  computers, 
giving  the  programmer  the 
tools  necessary  to  design 
attractive  and  effective 
programs. 

$18.95 


A  Grophte  Coleclion 

for  the  BM  PC  and  PCjr 


..■r-oin  far  Tbtftftt.  t^rmi,  fta  aojcactei 

>>v<^  rev  «  ma*  twn  fTVkK 


By  Elmer  Larsen 

Eighty-five  short  routines  create 
a  wide  variety  of  pictures, 
scenes,  and  symbols.  This  pic- 
ture library,  ranging  from  color- 
ful clowns  to  industrial  icons, 
con  instantly  be  used  to 
graphically  enhance  your  own 
business,  educational,  or 
entertainment  programs.  You'll 
also  learn  how  to  create  and 
animate  your  own  pictures. 
Everything  is  ready  to  type  in 
on  either  the  PC  or  the  PCjr. 

$14.95 


By  Edward  H.  Carlson 
If  your  ore  acquainted  with 
BASIC,  you  con  easily  write 
your  own  games  and  applica- 
tions. Thirty-three  sections  ore 
included,  with  instructor  notes, 
lessons,  assignments,  and  lively 
illustrations  to  entertain  ond 
amuse  you.  Kids  and  the  IBM 
PC  and  PCjr  is  a  gentle  in- 
troduction to  programming 
your  PC  or  PCjr  that  won't 
leave  you  bewildered  the  way 
the  technical  manuals  can. 

$12.95 


PUTLVNG 

J/z^ 

TO%ORK 

A  Guide  to  the  IBM  PCjr 

'.r*  »cw  'Crrmr  W.C1*  DtW4«  TznttM- 

By  Donald  B.  Trivette 
Puffing  Junior  to  Worl<  Is 
pocked  with  informotion  to 
help  a  reader  quickly  learn 
how  to  get  the  most  from  the 
PCjr.  The  book  provides  all  the 
information  necessary  to  get 
started  with  the  PCjr,  from  set- 
ting up  the  computer  to 
providing  valuable  information 
a  businessperson  or  pro- 
fessional will  need  to  moke  in- 
formed choices  about  what 
software  and  hardware  to 
purchase. 

$8.95 


COMPUIEi's 


TELECOMPUTING 


ON  THE 


t^n  »  ynttf  ,^4  ?(ri,#^  ;«,w,«yi 


By  Arlan  R.  Levitan 
Learn  the  ins  and  outs  of  tele- 
computing on  your  IBM  PC  or 
PCjr.  From  selecting  a  modem 
to  evaluating  terminal  soft- 
ware, Teiecomputing  on  the 
iBM  will  guide  you  through  the 
steps  in  clear,  everyday  lan- 
guage. Getting  online  with  a 
local  bulletin  board  or  an 
information  service  such  as 
Dow  Jones,  The  Source,  or 
CompuServe  is  made  easy  by 
the  explanations  offered  in  this 
book. 


$14.95 


To  enjoy  these  newest  titles  from  COMPUTE!  Books  for  your  IBM  PC  or  PCjr,  visit  your  iocol  bookstore  or  computer 

store,  or  order  directly  from  COMPUTE!  Books.  To  order,  call  Toll  Free  800-334-0868,  or  mail  your  ctieck  or  money 

order  (Including  $2.00  per  book  for  shilpping)  to  COMPUTE!  Books,  P.O.  Box  5058,  Greensboro,  NC  27403. 

COMPUTE!  Publicationsjncffl 

One  o(  me  ABC  PuOkshmg  Companies 

324  W  VtenOover  Avenue.  Suite  200.  Gfeensbofo.  NC  27'108.  919-275-9609. 

Putttfwi  £'  CO^UTfJ.  COKiPUTEi  1  Gajfliifl.  COMPUTEi  s  Goienu  &*,  COMPUTE  Boots,  and  COMRJTti  j  Aop*  Apptaolioni 


Amazing 

ONLINE 

Databases 


Kathy  Yakal,  Feoture  Writer 


Defined  loosely,  databases  have  been  around  about  as  long  as 
people  have  been  communicating  with  each  other.  A  database 
is  simply  a  collection  of  information — which  could  be  any- 
thing from  an  individual's  detailed  knowledge  of  a  certain 
topic  to  a  modem-day  library.  Traditionally,  the  main  prob- 
lem with  databases  has  been  organizing  them  so  you  can 
quickly  find  Just  the  piece  of  information  you  need.  But  now, 
electronic  databases  make  it  possible  to  recall  almost  any 
kind  of  information  faster  than  ever  before. 


Where  do  you  go  when  you 
need  information?  If 
you're  doing  research  for 
a  school  paper,  you  probably  go  to 
a  library,  If  you  want  the  results  of 
yesterday's  major  league  baseball 
games,  you  might  look  in  the  morn- 
ing newspaper  or  call  the  paper's 
sports  desk.  If  you  want  to  identify 
the  odd-looking  birds  that  have 
been  hanging  out  in  your  backyard, 
you  could  find  a  bird  book,  or  call 
the  local  zoo  or  animal  association. 
In  some  cases,  immediacy  is 
essential.  If  your  cat  is  sneezing  and 
moping  around  the  house  a  lot,  you 
could  write  a  letter  to  the  veterinari- 
an who  has  a  column  in  the  Sunday 
paper,  hoping  that  he'll  print  your 
letter  along  with  a  diagnosis.  But 
phoning  a  local  vet  makes  more 
sense.  Television  shows  that  offer 
hints  on  repairing  your  home's 
plumbing  or  your  car  are  helpful, 
but  if  you  have  a  leaky  faucet  or  a 
temperature  gauge  that's  running 
hot,  you'd  best  get  an  expert's  ad- 
vice fast. 

A  home  computer  with  a  mo- 
dem offers  another  alternative  for 
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finding  information.  Thousands  of 
online  databases,  ranging  from 
small  bulletin  board  systems  to  ma- 
jor information  services,  contain 
the  answers  to  almost  any  ques- 
tions imaginable.  Today's  online 
databases  are  repositories  for  ency- 
clopedias, current  and  back  issues 
of  newspapers  and  magazines,  pro- 
fessional journals,  industry  reports, 
airline  schedules,  shopping  cata- 
logs, and  much  more. 

There's  another  aspect  to  on- 
line databases  as  well,  one  that  goes 
beyond  the  computerized  storage 
of  published  information,  "It's  not 
just  taking  what  was  published  in 
print  and  putting  it  on  a  computer 
because  it  would  be  better  and  fast- 
er," says  Matthew  Lesko,  publisher 
of  Information  USA,  a  monthly 
newsletter  covering  the  database 
industry.  "It's  really  using  telecom- 
munications to  get  similar-minded 
people  to  communicate  sooner  with 
each  other," 

Lesko  recalls  talking  to  an 
Iowa  veterinarian  who  one  day  was 
called  upon  to  treat  a  three-legged 
dog.  The  doctor  belonged  to  a  vet- 


erinarian's bulletin  board  system 
(BBS),  so  he  posted  an  electronic 
message  about  the  unusual 
creature. 

"Overnight,  this  vet  had  re- 
sponses from  doctors  in  Chicago 
and  Miami  who  had  also  treated 
three-legged  dogs,"  says  Lesko. 
"And  he  didn't  have  to  wait  six 
months  for  the  case  to  appear  in 
some  vet  journal,  or  for  an  annual 
convention." 

There  are  three  general  types  of 
online  databases:  BBSs,  com- 
mercial information  services, 
and  specialized  professional  data- 
bases. They  differ  widely  in  the 
information  they  offer  and  the  ac- 
cess fees  they  charge. 

Calling  a  small  BBS  generally 
doesn't  cost  more  than  the  price  of 
the  phone  call  (and  only  then  if  it's 
long-distance).  Some  BBSs  have 
started  charging  for  memberships, 
often  just  to  limit  the  number  of 
callers  and  make  the  board  more 
accessible.  The  fees  also  help  defray 
the  expenses  of  operating  a  BBS, 
most  of  which  are  run  by  home 
computer  enthusiasts  in  their  spare 
time.  Hundreds  of  these  informal 
BBSs  are  scattered  throughout  the 
country,  and  they  offer  a  wide 
range  of  online  information  and 
public  domain  software.  Most  of 
the  information  is  oriented  toward 
computer  hobbyists. 

If  you're  looking  for  a  broader 
base  of  information  and  users,  you 
may  want  to  consider  subscribing 
to  a  commercial  information  ser- 
vice. The  most  popular  are  Compu- 
Serve, The  Source,  Dow  Jones 
News/Retrieval,  Delphi,  and 
American  People/Link,  These  ser- 
vices are  operated  at  central  loca- 
tions with  mainframe  computers 
and  offer  everything  from  stock 
market  quotes  and  encyclopedias  to 
teleconferences  and  back  issues  of 
The  Wall  Street  Journal.  Generally, 
they  can  be  accessed  with  a  local 
phone  call  from  most  major  cities, 
thanks  to  long-distance  networks 
leased  by  the  services.  Hourly  rates 
range  from  about  $5  to  $100  or 
more,  depending  on  time  of  access, 
the  speed  of  your  modem,  and  spe- 
cial services  you  may  require. 

For  the  most  part,  commercial 
information  services  cater  to  com- 
puter hobbyists  and  business  peo- 
ple.  If  what  you  need  is  highly 
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detailed  information  on  a  very  spe- 
cific subject — usually  related  to  a 
professional  or  technical  occupa- 
tion— you  can  subscribe  to  a  more 
specialized  online  database.  A  wide 
selection  is  available,  from  scientific 
and  research  clearinghouses  to 
legal  libraries.  These  are  the  most 
expensive  databases  of  all,  with  ac- 
cess fees  of  $300  or  $400  an  hour 
not  uncommon. 

The  regular  information  ser- 
vices are  enough  for  most  people, 
but  even  they  can  verge  on  overkill, 
"Commercial  databases  have  been 
in  existence  for  six  or  seven  years, 
but  they've  been  aimed  at  the  busi- 
ness market  and  kept  pretty  techni- 
cal and  expensive,"  says  Lesko.  "In 
the  business  area,  the  average 
hourly  online  fee  was  $100.  For  the 
consumer,  most  of  that  stuff  is  in 
the  library,  so  why  should  they  pay 
$100  when  they  can  just  go  and  get 
it?  Why  should  1  pay  $100  to  read 
The  New  York  Times  when  I  can 
have  it  delivered  to  my  door  for  50 
cents?  Plus  I  can  take  it  on  the  bus." 

Lesko  compares  these  early  days 
of  online  databases  to  the  food 
processor  craze  a  few  years 
back.  Manufacturers  were  saying, 
Look,  you  can  make  a  whole  meal  with 
these  things.  Everything  can  be  run 
through  the  food  processor. 

"What  some  database  people 
are  saying  is,  you  can  solve  all  the 
problems  in  the  world  if  you  buy  my 
database.  Well,  you  can't,  and  there 
are  more  efficient  ways  to  solve 
them.  When  you're  oversold,  you 
become  easily  disappointed," 

People  have  to  learn,  he  says, 
when  it  pays  to  use  an  online  data- 
base—  and  when  it  doesn't. 
"What's  happening  is  everyone 
gets  modems  and  uses  them  to  join 
an  online  database.  The  first  month 
they  get  a  bill  for  $100,  and  they 
stop  using  it." 

There  are  as  many  reasons  to 
subscribe  to  these  services  as  there 
are  reasons  to  be  wary  of  them. 
Typically,  their  most  popular  fea- 
tures include  sections  devoted  to 
specific  computers,  so  users  can 
trade  information,  exchange  public 
domain  programs,  seek  answers  to 
technical  problems,  and  share  in- 
dustry gossip. 

Teleconferencing — such  as 
CompuServe's  popular  CB  simula- 
tor— provides  a  forum  for  people 
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from  all  over  the  country  to  chat 
anonymously  online.  Teleconfer- 
ences on  special  topics  also  are 
scheduled  from  time  to  time.  Tele- 
gaming,  ranging  from  simple  com- 
puter versions  of  popular  board  and 
card  games  to  fast-paced  interactive 
fantasy  and  adventure  games, 
draws  a  large  audience.  Online  cat- 
alog shopping  is  beginning  to  pick 
up  speed  as  more  vendors  advertise 
their  products  electronically. 

In  addition,  information  ser- 
vices provide  some  material  un- 
available elsewhere,  such  as 
electronic  journals  that  are  not  in 
print.  Frequent  fliers  can  save  mon- 
ey on  airline  tickets  by  finding  the 
lowest  fares  online.  And  for  people 
who  avidly  watch  the  stock  market, 
access  to  what's  happening  on  the 
trading  floor  with  only  a  two-sec- 
ond delay  can  be  well  worth  the 
money. 

Online  databases  aren't  for 
everybody,  however.  To 
avoid  subscribing  to  one 
for  the  wrong  reasons,  spending  a 
lot  of  money  unnecessarily,  and  ul- 
timately souring  on  the  whole  idea, 
Lesko  has  a  few  suggestions: 

Do  your  homework.  Dig  before 
you  decide  on  an  online  database. 
Go  to  information  people,  such  as 
librarians.  They've  been  in  the 
database  business  a  long  time.  Find 
out  if  the  information  you  need  is 
available  from  another  source,  and 
if  the  time  it  takes  to  access  that 
source  is  acceptable  for  your  pur- 
poses. Talk  to  experts  in  a  particular 
field.  They  probably  know  about 
the  best  databases. 

Try  using  the  telephone  without 
a  modem.  If  you're  looking  for  infor- 
mation on  energy,  for  instance, 
there's  a  toll-free  government  hot- 
line for  almost  anything  you  want 
to  know  about  energy. 

Be  aware  that  you  can  get  lots  of 
information  free,  if  you're  not  in  a 
hurry.  If  you  want  to  monitor  legis- 
lation, there  are  at  least  half  a  dozen 
online  databases  you  can  call,  but 
they  can  cost  as  much  as  $200  an 
hour.  Alternatively,  you  can  make  a 
free  phone  call  to  your  local  con- 
gressional office,  which  can  call  the 
Bill  Status  Office,  which  has  the 
database  on  legislation.  They'll 
send  you  a  printout  at  no  charge. 
("There  are  less  expensive  alterna- 


tives [to  online  databases],"  ex- 
plains Lesko,  "but  usually  no  one 
has  hired  a  $50,000  a  year  salesman 
to  go  out  and  tell  you  about  it. 
People  aren't  aware  of  the  alterna- 
tives, so  databases  are  becoming 
the  ultimate  buyer's  beware 
market.") 

Test  drive  a  database.  Find  a 
way  to  try  out  a  database  as  cheaply 
as  possible  to  see  if  you're  really 
going  to  use  it  enough.  If  you  have 
an  acquaintance  who  uses  a  certain 
database,  ask  to  pay  for  a  few 
hours'  use  on  their  password  before 
signing  up  for  a  subscription  your- 
self. Sometimes  when  you  buy  a 
modem  or  terminal  program,  the 
package  includes  a  free  subscrip- 
tion and  some  free  access  time  on 
some  information  services. 

Look  at  reference  books  listing 
databases.  There  are  several  avail- 
able, including  the  Computer  Data 
and  Database  Source  Book  (Matthew 
Lesko,  Avon  Books)  and  the  Omni 
Online  Database  Directory  1985 
(Owen  Davies  and  Mike  Edelhart, 
Collier  Books). 

Once  you've  decided  on  a  data- 
base, learn  how  to  use  it  before  sign- 
ing on.  Nothing  is  more  irritating 
than  watching  the  minutes  (and 
dollars)  tick  off  while  you  try  to  find 
your  way  through  and  out  of  the 
myriad  menus  in  a  huge  electronic 
database. 


An  old  saying  favored  by 
many  schoolteachers  is  that 
if  school  teaches  you  any- 
thing, it  should  teach  you  how  to 
learn.  Online  databases  are  new 
tools  for  people  of  all  ages  to  im- 
prove their  learning  skills,  share 
information,  and — as  Lesko  says — 
make  contact  with  like-minded 
people. 

"The  only  thing  that  limits  us 
from  growth  is  taking  time  to  rein- 
vent the  wheel,"  he  says.  "If  some- 
one across  the  street  has  an  answer 
and  can  share  it,  then  I  can  go  on 
and  use  those  resources  somewhere 
else. 

"As  a  nation — and  it's  an  ide- 
alistic viewpoint — we  will  really 
progress  a  lot  faster  as  electronic 
information  becomes  increasingly 
available.  I  think  our  temperament 
is  to  share,  and  telecommunications 
is  going  to  make  that  happen 
faster."  Q 
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Commodore  stiould  tiove  mode.  We  bougtit 
the  same  design  that  Is  used  in  monitors 
costing  hundreds  more.  Meets  or  exceeds 
Commodore  specilicolions.  Great  tor  use  with 
your  VCI?  loo 

Calalog  =1210       $189.95 


AMBER  MONITOR 

•  Highest  pefformance  available 

•  12' screen 

•  Up  fo  132  columns  x  25  lines 

•  Front  ponei  cont^ois 

•  Ambet  screen 

•  Rugged  metal  case 

•  Complete  with  cable  ond  ihstructlons 


This  Is  the  monilorfOf  professionol  work.  II  you 
plon  to  use  on  80  column  boarcf  (see  oeiow) 
or  i(  you  use  your  64  a  lot  »Cfve  your  «y«4  ond 
use  the  best.  We  bought  the  some  design 
used  by  Sanyo  thol  sells  tor  up  to  S199.95. 


Catalog  -1220 


$99.95 


DATA  20  XL  80  (80  column  board) 

•  80  column  X  25  line  display 

•  Cleor.  shorp  display 

•  Includes 
Wordmanager  Wordprocessor 
Plonmonagei  Spreadsheet 
Com-monager  Commur^iCQlfoos 
Disk  copy  utility 

•  Auto  boot  and  auto  stort 

•  Speeds  up  the  system  up  to  15%  Including 
ttw  disk  dnv« 

•  1  year  mcnufaclurer's  worronty 


Every  Apple  or  IBM  hos  on  BO  column  screen, 
so  can  your  6d  This  amazing  cartridge  is  the 
best  new  product  we've  seen  in  years.  Simply 
plug  it  in.  and  walch  the  XL  80  load  and  run  its 
easy  to  use  progmms  autofnoffcally.  The 
included  programs  ore  fast,  powertul.  and  very 
easy  thanks  to  the  80  column  screen.  A  must 
(or  wordprocesslng.  Use  with  any 
monochrome  monitor  (see  alxjve). 

Catalog  -1230       $99.95 


DATA  20  PARALL£L  INTERFACE 

•  100%  compalable  with  all  Commodore 
Computers  Plus  4. 16.  64.  VIC  20,  SX  100 
(portable),  ond  126 

•  No  power  tops  to  tape,  user,  joystick  pons, 
or  any  outside  source 

•  No  selup  required 

•  No  software  drivers  required 

•  Great  graphics  witn  Prinlshop.  FleKidrow. 
etc. 

•  As  easy  to  use  as  a  cable 
■  1  year  manulacturers  worranly 


you  wanted  graphics,  no  hossle,  ond  low 
price,  DATA  20  gave  rt  lo  you  This  new  ir^tertoce 
(never  soid  belore)  uses  a  custom  chip  thol  Is 
so  low  power,  it  gets  all  the  pov^r  it  needs 
ttom  the  signois  going  lo  the  Printeri  Works 
With  arty  pilnlsf «  sonwara  or  your  money 
txick 

Catalog '1240       $49.95 
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DISKEHES 

•  Htgh  Ouolity 

•  Singie  sided,  double  density 

•  1 0  per  box 

•  Includes  rugged  plaslle  dist<  filer,  a  SI  2.95 
volue-FHES 

•  Includes  labels,  sleeves,  and  write  protect 
tabs 


No  one  sells  diskettes  like  we  do.  A  super 
value  With  our  exclusive  troe  disk  tiler.  No  more 
scrounging  through  stacks  of  loose  disks  Our 
filer  also  doubles  as  a  eoset-lype  stand  tor 
easy  reference.  Footed  vourvaluoble  data  but 
otlhe  twst  price!  No  limit. 

Catoiog»1250       $14.99 

Need  more  than  1 0?  Buy  in  quantity  and  stave 
Box  01 1 00  Includes  lobels,  sleeves,  and  write 
protect  lobs   Fiiernoi  included 

Catalog -1260        $129.95 


CALL  CPX  TO  ORDER 


(714)581-4570 


24  HOUR  ORDER  LINE 

CALL  AFTER  5  P.M.  AND  SAVE 


s 


COD 


90  DAY  WARRANTY 


15  DAY  FREE  TRIAL  .  SATISFACTION  OR  YOUR  MONEY  BACKI 
NO  CHARGE  UNTIL  WE  SHIP  YOUR  ORDER 

Prices  do  not  inciude  shipping  qi  ospiicabie  taxes  oi  duties. 
Sorry  no  personal  checks  accepted 


computer 
peripheral 
exchange 


23854  Via  Fabricante,  Suite  D-3 
IVlission  Viejo  CA  92691 


Softball  Statistics 


Roger  Felton 


It's  time  to  get  ready  for  the  midsum- 
mer and  fall  softball  leagues,  and 
you'll  want  to  keep  track  of  all  the 
individual  and  team  results.  With 
"Softball  Statistics,"  it's  easy.  You  can 
enter  data  for  each  player's  times  at 
bat,  hits,  runs,  and  so  on.  The  pro- 
gram automatically  computes  batting 
averages,  stores  cumulative  results  on 
disk  or  tape  as  the  season  progresses, 
generates  formatted  printouts  with 
sorted  rankings  for  all  players,  and 
more.  Originally  written  for  the  Atari 
(with  at  least  16K  RAM  for  tape  or 
24K  for  disk),  the  program  has  been 
enhanced  and  adapted  for  the  Com- 
modore 64,  VIC-20  (with  at  least  8K 
expansion),  Plus/ 4,  16,  PET,  TI- 
99/4A  (regular  BASIC).  IBM  PC  and 
PCjr  (disk  only),  and  Apple  11  series 
(disk  only).  An  30-column  printer  is 
optional  but  recommended.  The  pro- 
gram also  can  be  translated  for  addi- 
tional computers  or  modified  to  track 
statistics  for  other  sports  as  well. 


What's  the  worst  position  on  a  soft- 
ball  team?  Catchers  have  to  squat  in 
an  uncomfortable  stance  for  an 
hour  or  more  and  duck  hazardous 
foul  balls.  Pitchers  have  to  duel 
with  mighty  sluggers  and  dodge 
powerful  line  drives.  Basemen  have 
to  stretch  their  bodies  like  rubber 
bands  to  nab  wayward  throws  from 
their  teammates  while  keeping  at 
least  one  toe  on  the  base  bag.  And 
outfielders  have  to  scoop  up  bounc- 
ing grounders  with  the  knowledge 
that  no  one  is  backing  them  up 
besides  the  outfield  fence. 
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But  as  demanding  as  all  these 
positions  are,  there's  another  that 
could  be  worse — that  of  team  stat- 
istician. Keeping  track  of  your 
teammates'  performance  is  often  a 
laborious,  thankless  job.  Some- 
times the  statistician  is  a  reserve 
player  or  friend  of  the  team  who 
doesn't  even  get  to  play.  Caged  in 
the  dugout,  the  statistician  is  sup- 
posed to  document  every  hit,  run, 
and  walk,  and  boost  team  morale 
by  contributing  lively  chatter.  After 
the  game,  the  statistician  has  to 
spend  hours  punching  numbers 
into  a  calculator  to  figure  out  the 
batting  averages. 

"Softball  Statistics"  makes  that 
job  much  easier.  After  each  game, 
the  program  prompts  you  to  enter 
vital  stats  for  each  player.  Then  it 
automatically  calculates  the  batting 
averages  and  prints  sorted  rankings 
on  the  screen  or  printer.  It  can  also 
print  sorted  rankings  for  hits,  runs, 
and  runs  batted  in.  These  game  sta- 
tistics can  then  be  merged  with  data 
for  all  previous  games,  and  updated 
season  results  can  be  sorted  by  cate- 
gory and  printed.  Finally,  the  pro- 
gram lets  you  store  the  cumulative 
statistics  on  disk  or  tape. 

We've  provided  versions  of 
Softball  Statistics  for  more  than  ten 
different  computers,  but  if  a  version 
for  your  computer  is  not  included,  it 
can  be  translated  without  too  much 
difficulty  if  you're  familiar  with 
tape  or  disk  input/output  on  your 
machine.  In  all  versions,  the  input/ 
output  rouhne  starts  at  line  3000 
and  the  printing  routine  starts  at 
line  4000. 


If  you're  a  professional  base- 
ball or  Little  League  fan,  you  can 
use  Softball  Statistics  to  follow  the 
fortunes  of  your  favorite  team.  And 
with  modifications,  it  could  be 
adapted  to  a  wide  variety  of  sports. 

Typing  The  Program 

Because  the  main  routines  in  Soft- 
ball Statistics  are  compatible  with 
nearly  all  Microsoft  BASIC  lan- 
guages. Program  1  is  a  general  ver- 
sion for  all  computers.  An 
exception  is  Atari  BASIC,  which 
handles  strings  somewhat  differ- 
ently than  Microsoft  BASIC,  There- 
fore, if  you  have  an  Atari 
400/800/XL/XE  with  at  least  16K 
RAM,  type  in  Program  6  only.  Do 
not  type  in  Program  1. 

If  you  have  any  other  com- 
puter, type  in  Program  1  plus  the 
modifications  for  your  particular 
machine.  Program  2  contains  the 
modifications  for  the  Commodore 
64,  VIC-20,  Plus/4,  16,  and  PET. 
The  :rem  at  the  end  of  each  line  is  a 
checksum  value  for  the  VIC  and  64 
"Automatic  Proofreader"  program. 
If  you  have  one  of  the  other  Com- 
modore computers,  ignore  and  do 
not  type  the  :rems.  Program  3  has 
modifications  for  the  IBM  PC  and 
PCjr.  Program  4  has  modifications 
for  the  Apple  11  series,  and  Program 
5  contains  modifications  for  the  TI- 
99/4A.  Example:  If  you  have  a 
Commodore  64,  you  would  type  in 
Program  1  and  the  lines  in  Program 
2  as  a  single  program. 

Since  Program  1  is  a  general 
version  for  several  computers,  it  is 
listed  without  "Automatic  Proof- 


CLOSE  ENCOUNTeRS 
OF  THE  FMOLSY  KIND 
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an  enchanted  world  whose  only  hope  against  the  forces  of  evlt  (s  you. 

GEMSTOME  WARRIOR™  A  lightning-fast  action  strategy  game  that  will  leave  you  breathless 
with  excitement  as  U  takes  you  through  the  labyrinths  of  the  netherworld  on  a  noble  quest 

Open  them  up  and  step  through  the  gateway  to  your  ^ntastes  come  true. 
At  your  local  computer/software  or  game  store  today. 


QUCSTROM"  Is  available  on  48K  diskette  for  APPLE- 11             M 
with  Applesoft  ROM.  Apple  II+,  Me  and  lie  ($49.95).                  \ 
On  4011  diskette  for  ATARI  *  home  computers  ($49.95).             ^ 
On  64K  diskette  for  COMMODORE  64-  1*39.95). 

^ 

•^                 GEMSTOME  WARRIOR"  Is  available  on  48K  diskette 
_                          for  APPLE-II  with  Apptesoft  ROM,  Apple  II+,  lie, 

and  lie  ($34.95). 
Also  on  64K  diskette  for  COMMODORE  64-  ($34,951, 

,1985  by   STRATEGIC  SIMULATIONS,   INC.   ah  rights  reserved. 


If  there  are  no  convenient  stores  near  you,  VISA  Gc  M/C  holders 
can  order  direct  by  calling  800-2271617.  ext.  335  (toll  free).  In 
California,  800-772-3545.  ext  335.  Please  specify  computer  format 
and  add  $2.00  for  shipping  and  handling. 


To  order  by  mail,  send  your  check  to:  STRATEGIC  SIMULATIons  inc, 
883  Stierltn  Road.  Btdg.  A-200,  Mountain  View,  CA  94043.  (California 
residents,  add  7%  sales  tax.)  All  our  games  carry  a  "14-day  satisfaction 
or  your  money  back"  guarantee. 


WRITE  FOR  A  FREE  COLOR  CATALOG  OF  ALL  OUR  GAMES. 

APPLE.  ATAHI  and  COMMODORr.  64  nt*:  tt.i<U.'marks  of  Apple  Computer.  Inc..  ALaii.  Inc_  and  Commodore  Klettrontcs,  Lid-  rcrspcdiveiy. 


reader"  checksums  (see  "COM- 
PUTEI's  Guide  to  Typing  in 
Programs"  elsewhere  in  this  issue). 
Be  extra  careful  when  typing  Program 
J  because  a  mistyped  line  could  yield 
inaccurate  results  even  if  the  program 
runs  without  errors. 

Proofreader  checksums  are  in- 
cluded for  the  Atari  version  of  Soft- 
ball  Statistics,  since  it  is  a 
self-contained  program,  and  for  the 
Commodore,  IBM,  and  Apple  mod- 
ifications (Apple  readers  should 
note  that  an  Apple  version  of  the 
Automatic  Proofreader  is  new  this 
month;  see  the  "Apple  Automatic 
Proofreader"  article  in  this  issue). 
We  recommend  loading  the  Proof- 
reader before  typing  either  Pro- 
gram 1  or  the  modifications — 
simply  ignore  the  checksums  re- 
turned on  the  screen  when  you  en- 
ter lines  from  Program  1. 

When  you  finish  typing  either 
Program  6  for  Atari  or  Program  1 
plus  the  modifications  for  your 
computer,  save  a  copy  on  disk  or 
tape  for  safekeeping  before  running 
it  for  the  first  time. 

Entering  The  Roster 

The  next  step  is  to  enter  your  team's 
roster  into  the  program.  Softball 
Statistics  can  handle  a  team  with  up 
to  20  players  and  stores  this  infor- 
mation in  DATA  statements  as  part 
of  the  program  itself. 

In  all  versions,  the  DATA 
statements  begin  at  line  2070.  The 
statements  must  conform  to  a  pre- 
defined format:  a  two-digit  jersey 
number  followed  by  a  space,  then 
the  player's  first  or  last  name.  Pre- 
cede one-digit  jersey  numbers  with 
a  zero,  such  as  08  for  8.  Names  can 
be  any  length,  but  only  the  first 
seven  characters  appear  on  the 
printouts.  Each  entry  is  separated 
by  a  comma.  Example: 

2070  DATA  23  LEE,:7  JACKSON,33 
JOHNSTON,10  LONGSTREET,04 
PICKETT 

In  the  output,  "JOHNSTON"  and 
"LONGSTREET"  would  appear  as 
"JOHNSTO"  and  "LONGSTR," 

The  programs  are  listed  with 
dummy  entries  in  the  DATA  state- 
ments, such  as  44  JIM  and  10 
PLAYERX.  Substitute  your  own 
team  members  for  these  entries.  If 
your  team  has  fewer  than  20  play- 
ers, leave  the  remaining  dummy 
entries  in  the  DATA  statements;  the 
program  must  have  20  entries  to 
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function,  and  it  ignores  the 
PLAYERX  entries. 

Finally,  put  your  own  team's 
name  in  the  string  statement  at  line 
140  in  the  general  version  or  line 
120  in  the  Atari  version.  If  you  have 
a  TI-99/4A,  make  sure  the  printer 
configuration  statements  at  lines 
4020  and  5010  are  correct  for  your 
printer  (see  your  manual).  With 
these  adjustments,  Softball  Statis- 
tics is  now  ready  to  run. 

Important  note:  You  should 
avoid  tinkering  with  the  player 
name  DATA  statements  once 
you've  started  using  the  program. 
Otherwise,  there  will  be  problems 
when  it  attempts  to  compute  cumu- 
lative season  totals.  If  you  drop  a 
player  from  the  roster  and  replace 
him  with  another  player,  the  new 
player's  totals  will  contain  the  old 
player's  results  as  well.  So  to  drop  a 
player,  substitute  a  PLAYERX  dum- 
my entry  at  that  position  in  the 
DATA  statement.  Of  course,  this 
means  the  dropped  player's  results 
will  no  longer  be  included  in  the 
team  totals  for  the  season.  If  you 
wish  to  retain  a  dropped  player's 
results  in  the  team  totals,  leave  the 
player's  name  in  the  DATA  state- 
ment and  enter  999  in  response  to 
all  input  prompts  following  subse- 
quent games  (see  below). 

Compiling  Statistics 

Once  the  roster  is  entered,  you  can 
run  the  program.  It  begins  by  ask- 
ing for  statistics   for   individual 
games.  The  first  prompt  reads: 
WHO  DID  YOU  PLAY? 

Respond  with  the  opposing  team's 
name—such  as  KELLY'S  DINER— 
and  press  RETURN  (or  ENTER  if 


you  have  an  IBM  or  TI).  The  next 
prompt  asks: 

ENTER  YOUR  SCORE  AND  THEIR 
SCORE  (SEPARATED  BY  A 
COMMA): 

For  instance,  if  your  team  lost  by  a 
score  of  9  to  5,  you'd  type  5,9  and 
press  RETURN. 

The  program  now  begins  ask- 
ing for  individual  player  statistics.  If 
the  first  player  name  on  your  roster 
is  LENNY,  the  program  prints: 

LENNY'S  STATISTICS  FOR  THIS 
GAME: 

and  then  prompts  you,  one  by  one, 
to  enter  the  number  of  times  at  bat, 
runs  scored,  hits,  runs  batted  in 
(RBIs),  doubles,  triples,  home  runs, 
and  walks.  At  each  prompt,  type 
the  appropriate  number  and  press 
RETURN.  After  the  last  prompt,  the 
program  continues  to  the  next  play- 
er on  the  roster  and  repeats  the 
cycle. 

If  a  certain  player  missed  a 
game,  type  999  at  the  first  prompt. 
This  automatically  enters  zeros  for 
all  his  stats  and  skips  to  the  next 
player.  In  fact,  entering  999  at  any 
prompt  inputs  zeros  for  all  of  a 
player's  remaining  game  stats. 

Individual  Printouts 

After  you  type  the  last  statistic  for 
the  last  player,  the  program  prints 
the  message  WORKING  while  it 
sorts  all  the  data,  (The  WORKING 
message  appears  at  other  points  in 
the  program  during  sorts,  since  the 
sort  routine  is  written  in  BASIC  and 
is  not  particularly  fast.)  In  a  few 
moments,  the  program  says: 

DO  YOU  WANT  A  PRINTOUT  OF 
THE  GAME'S  STATS  (Y/N)7 


Figure  1 :  Printout  of  Team  Game  Stats 
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Get  the  jump  un  the  weather- 
man by  accurately  forecasting 
the  local  weather  yourselfl 


The  beautiful  princess  is  held 
captive  by  deadly  dragons.  Otily 
a  knight  in  ahinitiK  armor  can 
save  her  now! 


A  time-saving  organizer  for 
coupons,  receipts  and  more. 


A  scientifically  proven  way  to 
develop  an  awesome  memory. 


Cut  your  energy  costs  by  moni- 
toring your  phone,  electric  and 
gas  bills. 


School-age  and  jjre-school 
children  are  rewarded  for  right 
answers,  corrected  on  their 
wrong  ones- 


^'ou  are  trapped  in  a  f^ve- 
story,  125-roora  structure 
made  entirely  of  ice.  Find  the 
exit  before  you  freeze! 


Computerize  car  maintenance 
to  Improve  auto  performance, 
economy  and  resale  value. 
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A  real  brainfiexer.  Deflect 
random  balls  into  target.'>on 
a  constantly  changing  playfield. 


Ta  ke  control  of  your  personal 
finances  in  less  than  one  hour 
a  month. 
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Create  multi-colored  bar 
graj)ha  with  a  surprisingly 
small  amount  of  memory. 


A  fun  way  to  dramatically 
increase  typing  speed  and 
accuracy. 


Get  up  to  30  new  programs  and  games 

for  less  than  15  cents  each — 

every  month  in  COMPUTE! 


Every  month,  COMPUTE!  readers  enjoy  up  to 
30  brand-new,  ready-to-run  computer  pro- 
grams, even  arcade-quality  games. 

And  when  you  subscribe  to  COMPUTE!, 
you'll  get  them  all  for  less  than  15  cents  each! 

You'll  find  programs  to  help  you  conserve 
time,  energy  and  money.  Programs  like  Cash 
Flow  Manager,  Retirement  Planner,  Coupon 
Filer,  Dynamic  Bookkeeping. 

You'll  enjoy  games  like  Air  Defense, 
Boggier,  Slalom,  and  High  Speed  Mazer. 

Your  children  will  find  learning  fast  and 
fun  with  First  Math,  Guess  That  Animal,  and 
Mystery  Spell. 

Looking  for  a  challenge?  You  can  write 
your  own  games.  Customize  BASIC  programs. 
Even  make  beautiful  computer  music  and 
pictures. 

It's  all  in  COMPUTE!.  All  ready  to  type 
in  and  run  on  your  Atari,  Apple,  Commodore, 
PET/CBM,  TI-99/4A,  Radio  Shack  Color 
Computer,  IBM  PC  or  IBM  PCjr. 


What's  more,  you  get  information-packed 
articles,  product  reviews,  ideas  and  advice  that 
add  power  and  excitement  to  all  your  home 
computing. 

And  when  it's  time  to  shop  for  peripherals 
or  hardware,  check  COMPUTE!  first.  Our 
product  evaluations  can  save  you  money  and 
costly  mistakes.  We'll  even  help  you  decide 
what  to  buy:  Dot-matrix  or  daisy-wheel  printer? 
Tape  storage  or  disk  drive?  What  about 
modems?  Memory  expansion  kits?  What's  new 
in  joysticks,  paddles  and  track  balls? 

Order  now!  Mail  the  postpaid  card  attached 
to  this  ad  and  start  receiving  every  issue  of 
COMPUTE!.         


For  Faster 

Service 

Call  Toil-Free 

1-800-334-0868 


COMPUTEI  P.O.  Box  914,  Farmingdale,  NY  11737 


-ijllj^^_^ 
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THE  BEST  PRICES  I 

We    will    meet   or    beat   any 

qualified  price  you  find, 

^  Next  day  shipping  on  all  in  stock 
items. 

^  Free  easy  access  order  inquiry. 

t^  Orders  from  outside 

Pennsylvania  and  Nevada  save 
state  sales  tax. 

^  Free  techniclal  support  witti  our 
factory  trained  technical  staff. 

^  There  is  no  limit  and  no  deposit 
on  C.O.D.  orders. 

^  There's  no  extra  charge  for 
using  your  credit  card.  Your  card 
is  not  charged  unfit  we  ship. 

i'  No  waiting  period  for  cashiers 
checks. 

1-  We  accept  purchase  orders  from 
qualified  corporations.  Subject  to 
approval. 

1^  Educational  discounts  available 
to  qualified  institutions. 

^  FREE  CATALOG  MEMBERSHIP. 


ORDER  urn 


^w 

1-800-233-8950 

In  PA  1-800-242-4215 

— . — ^^ 

-^— - 

CUSTOMER  SERVICE 
&  TECH  SUPPORT 

1-717-327-1450 

--- — ^IJ 

p^i==^ 

~~ — ~M 

^1^ 

J*S 

^^^r— 

SHIPPING 

Add  3%,  minimum  S5.00  shipping 
and  handling  on  all  orders.  Larger 
shipments  may  require  additional 
charges, 

All  items  subject  to  availability  and 
price  change. 

Returned  shipments  may  be  sub- 
ject to  a  restocking  fee. 


1-800-268-3974 

Ontario/Quebec 

1 -800-268-4559 

other  Provinces 

1-416-828-0866 

In  Toronto 

TELEX:  06-218960 

2505  Dunwin  Drive, 

Mississauga,  Ontario 

Canada  L5L1T1 

All  prices  shown  are  for  U.S.A. 

orders. 

Call  The  Canadian  Office  for 

Canadian  prices. 


APPLE 

APPLE  lie CALL 

APPLE  lie CALL 

MaclNTOSH CALL 

lie  LCD  Display CALL 


A  ATARI 


65XE   [64K) f>|i 

130XE  I128K) Cf'^a 

130ST   (128K) *?©*■* 

520ST   (512K) P* 

ATARI  600XU  CLOSEOUT 
S49,Bg 

WHILE  5UPPUES  LAST 

800XL  64K CALL 

B50  Interface S109.0O 

1010  Recorder $49.99 

1020  Color  Printer S79.99 

1025  Dot  Malrix  Printer S199.99 

1027  LeIter  Quality  Printer $269.99 

1030  Direct  Conneci  Modem S69.99 

1050  Disk  Drive S179,99 

Touch  Tablet S64.99 

7097  Atari  Logo 574:99 

4018  Pilot  (Home) S57.99 

5049  VisiCalO $59.99 

4011  Star  Raiders S12.99 

4022  PacMan S16,99 

BOARDS  FOR  ATARI 

Axlon  32K $39.99 

Anion  4aK  (400) S69.99 

Axlon   128K $269.99 

MicrobitS  64K  (600) $109,00 

Bit  3  Full  View  80 $229.00 

^s  commodore 
NEW 
Commodore  128,  LCD..CAI.L 

SX-64  Portable.... S499.00 

Commodore  Plus  4 $199.00 

CBM   64 $149.00 

C1541  Disk  Drive $199.00 

01530  Daiasetie $39,99 

M-801  Dot  Matrix  Printer $199.00 

M-e02  Dot  (Halrix/Sgrial $219,00 

MCS  803  Dot  Malrix $179,00 

01802  Color  Monitor $199.00 

01660  Auto  Modem $59.99 

DPS  1101  Daisy  Printer $339,00 

Professional  Software 

Fleet  System  II  w/Spellr^ $49,99 

Trivia  Fever, , ,„ ,,,,$29.99 

^* 

File  (64) $59.99 

Report  (64) $49.99 

Precision  Software 

Superbase  64 $54.99 

BATTERIES  f^NCLUOeO 

Paperclip  w(Spell  Pack $79,99 

The  Consultant  DBMS $69,99 

Bus  Card  II $139,00 

BO  Col  Display $139,00 

^S  commodore 

CBM  B032 $639.00 

CBM  4032 $599,00 

2031  LP  Disk  Drive $299,00 

8050  Disk  Drive $949,00 

S260  Disk  Drive $1249.00 

4023  Primer. ....,$329,00 

8023  Printer $569,00 

6400  Printer CALL 

Z-RAM $299,00 

Silicon  Olfice $299,00 

Profes^onal  Software 

Word  Pro  4  Plus/5  Plus  each  ,$239,00 

Into  Pro $179,00 

Administrator $399,00 

Power $69,99 


PORTABLE  COMPUTER 


W/ipt  HEWLETT 
micM  PACKARD 

41CV $189,99 

41 CX $249,99 

HP  71 B $419,99 

HP  lie $62.99 

HP    12C/15C/18C $89,99 

HP  75D $999,99 

HPIL  Module $98.99 

HPIL  Cassette  or  Printer $369,99 

Card  Header $143.99 

Extended  Function  Module, $63,99 

Time  Module ,,-$63,99 

We  (tock  the  lull  Una  of 
HP  calculator  product* 

SEC 

PC-8401 $749,00 

PC-8201   Portable  Comput6r,„,$289,00 

PC-8231   Disk  Drive $599,00 

PC-8221A  Thermal  Printers $149,00 

PC-82aiA  Dala  Recorder $99,99 

PC.Baol-06  8K  FIAM  Chips $105,00 

SHARP 

PC-1360 $159,99 

PC-1261 $159,99 

PC-1260 $109,99 

PC-1500A $185-99 

PC-1250A $88,99 

CE-125  Printer/Cassette- $128,99 

CE-150  Color  Printer  Cassette,$171,99 
CE-161   16K  RAM -,,,. $134,99 


HARD 

ALLOy 

PC    Stor CALL 

PC  Disc CALL 

PC   QlC-SIOf ..CALL 

PC  Back-up CALL 

EVEREX 

Hard  Drives CALL 

Tape  Back  Up CALL 

IfliAjsodiaes 

5  meg  Removable/Internal $1399,00 

10  meg  Fixed/Internal 11249.00 

15  meg  5  RemovableHO  Fixed$2149.00 
25  meg  5  Removable/20  Fixed$2499.00 

10  Meg  Bernoulli  Box ,.$2099,00 

20  meg  Bernoulli  Box $2649,00 

5  meg  "MacNoulli" $1599. (» 

ffpRansSyistems 

10  meg  Internal $699.00 

TAUOBASI 
TECHHOIOOIU 

12.  25.  35,  60.  80  meg  (PC) 

Irom  $1499,00 

FLOPPY 

Indus 

Apple  GT S209,00 

Atari  GT $249,00 

C-64  GT $259.00 

QS3I 

A1.5  Apple $199.00 

A2      Apple $199.00 

szss 

SD1  C-64  Single $269.00 

SD2  C.64  Dual $469,00 

■vRmaSystems 

Rana  1000  (Atari) $199,00 

Elite  1   (Apple) $189,00 

laniJan 

320K  S'/i"  (PC) $129,00 

puma 

320K  5V'4" ,','„,!,,!", $109,00 


Anchor 

Volksmodem $59,99 

Volksmodem  XII $189,99 

Mark  IL  Serial $79,99 

Mark  VII  (Auto  Ans/Auto  Dial).,.. $99.99 
Mark  XII  (1200  Baud) $2S9.00 

(DHayes 

Smartmodem  300 $145.00 

Smanmodem  1200 $389,00 

Smartmodem    12003 - $359,00 

Smanmodem  2400 .,,-$699,00 

Micromodem  lie,....- $139,00 

Smart  Com  II $89,99 

Chronograph,,.. ,......,.,,. $199,00 


Reach  1200  Baud  Hall  Card,  ..$399,00 

m»  miCROBITS 

MPP-1000E  AD/AA  (Atari),,,- $79,99 

MPP-1064  AD/AA  (C-64| $69,99 

[Novation;)S 

Smart  Cat  Plus $319,00 

Smart  Cat  103 $169,00 

Smart  Cat  103/212 $369,00 

Novation   2400 CALL 

212  AuSoCat  II $499.00 

Apple  Cat  II $229.00 

212  Apple  Cat  II $379.00 

Apple  Cat  212  Upgrade $229.00 

Macmodem $319,00 

TELELEARMINO 

C64  300  Baud $49,99 

ZT-1 .^!ZI.. $339-00 

ZTOO ,,$309-00 

ZT-II , $369,00 

Z-22  Video  Data  Terminal $629,00 

maxell. 

3'/:"   SS/DD $39,99 

3'/!"  DS/OD.... $54,99 

5V»"   MO-1 $17.99 

SVi"   MD-2 $23.99 

8"    FD-1 $39,99 

8"    FD-2 $49,99 

vk  Verbatim. 

5Vi"  SS/DD $21,99 

5V.  "  DS/DD $29,99 

Disk  Analyzer „, ,.,$24,99 

Elephant  5'A"  SS/SO $13,99 

Elephant  5'/«"  SS/DD,,,,, $15,99 

Elephant  5V."  DS/DO $17,99 

Elephant  EMSP  SV< „„, $24,99 

023 

5V<"  Disk  Head  Cleaner S14.99 

DISK  HOLDERS 

INNOVATIVE  CONCEPTS 

Flip-in-File  10 $3,99 

Flip-in-Flie  50 $17.99 

Flip-in-Rle  50  w/IOCk $24,99 

Flip-in-Rle  (400/BOO  ROM) S11.99 

AMARAY 

50  Disk  Tub  5'A" $9,99 

30  Disk  Tub  3'A" 8.99 


IBM $89.99 

Apple/Franklin,.,.. $79,99 

■Poiainki 

Palellfi $1299,00 


MONITORS 


300  Grosn $129,00 

300  Amber S1 39.00 

310  Ambar  IBM-Plug S169.0O 

300   Colar/Audio S239.00 

Color  500  Composite/HGB S389.00 

Color  600  Hi-Res  (640*240) S399.00 

Color  700  HiRes  (720x240) $499.00 

Color  710  Long  Phosphor S579.00 

12"  Ambor/Green  Compasite $99.99 

12"  Amber/Green  TTL (ea.)  $119.00 

SEC 

JB  1260  Green S79.99 

JB  1201/1205 S129.00 

JB  1280  G  TTL (eal  $149.00 

JB  1285  A  TTL S149.00 

JC  1215  Color S229.00 

JC   1216  RGB $379.00 

JC  1460  Color S2S9.00 

JC   1410  RGB $669.00 

PHiNCETON 

MAX-12  Amber $189.00 

HX-12  RGB $469.00 

SR-12  RGB $629,00 

Scan  Doubler  Board $199.00 

115  12"  Greon  Mono $99.99 

116  12"  Amber  Mono $99.99 

121  Green  TTL $139.00 

122  Amber  TTL $149.00 

210  Color  RGB $239.00 

400  Med.Res  RGB $299.00 

410  Hi-Res  RGB S339.00 

420  Hi-Res  RGB  (IBM) $429.00 

440  Ultra  HI-Rbs  RGB $589.00 

8400  Ouadchrome $479.00 

8410  Quadchrome  II $469,00 

8420  Amberchrome $179.00 

ZVM   122/123 $69.99 

ZVM  124  IBM  Amber $149.00 

ZVM  130  Color $279.00 

ZVM  131  Color $299.00 

ZVM  J33  RGB S429.00 

ZVM   136  RGB/Color $459.00 

ZVM  136  RGB/Color $599.00 


Qraphcard * $79.99 

Seriall  Card $99.99 

MicrobuHer  II  -f $169.00 

MicrobuHor  32K $189.00 

Microlazer from  $139.00 

Etazer  (Epson) from    $79.99 


PRINTERS 


JC  COMPATIBLES 


H  Orange  mkro 


Grappler  CD  (C64) S99.99 

Grappler  *  (Apple) $89.99 

Grappler  16K-f   (Appie) $159,00 

DIGITAL  DEVICES 

Apo  Face  (Atari) $49.99 

U-Print  A  (Atari) $54.99 

U-Aie/eulfer  (Alan) $74.99 

U-Call  Inlertacs  (Atari) $39.99 

U-Prinl  C  {C64| $49.99 

P-16  Print  Buffer $74.99 

mpp  miCROBITS 

MB1160  Parallel  (Atari) $79.99 

MPP-1150  Parallel  (Atari) $69.99 

MP-1150XL  (Atari  1200XL) $69.99 

MicroStuffer  64K  Print  Buffer.. .$1Q9. 00 


AT-100  Alari  Interface  Primer.. .$149.00 

AT-BSO  Alari  Dual  Mode $259.00 

QP-100  Parallel  Interface $189.00 

GP-70Q  Atari  Color  Printer $489.00 

QP-S50  Parallel  Prinler $269.00 

^CITIZEN 

li^SP-1Q  (80  col.) $349.00 

MSP-15  (132  col.) $499,00 

MSP-20  (80  ool-l $489.00 

MSP-25  (132  col.) ,...$679.00 

crroH 

Prowriter  7600 $219.00 

Prowriter  BSlOP $299.00 

Prowriter   1560P $469.00 

Son  of  Starwriter  A10P $459.00 

F10-40P  Stanwriter $869.00 

F10-55  Prrntmaster $1049,00 

ComWriterll  Lelter  OualHy $399,00 

corona 

Lazer  LP-MO - $2799.00 

DIABLO 

D25 $599.00 

ct^sywriter 

2000 $749.00 

EPSON 

RX-80.  FX-e0  +  ,  LX-80,  JX-80 CALL 

FX-100+,  RX-100,  LQ150Q CALL 

Homewrifar  10 CALL 

^uKr 

6100  Letter  Quality $399.00 

6300  Lelter  Quality $719.00 

NEC 

8027  Transportable $299.00 

2000  Series $699.00 

3000  Series $1099.00 

8000  Series $1499.00 

ELF  360 $449,00 

PR103A  -  Trimode ..$289.00 

L015  -  Letter  Quality $359,00 

8025  -  Wide  Carriage $469.00 

OKIDAIA 

83.  34.  92,  93.  1B2.  192,  193 

2410,    Oyimale-20 CALL 

Oliimatfi  10  (Specify  C64;Aiari)$1 99.00 

OLYMPIA 

Needlepoint  Dot  Matrix $329.00 

Compact  HO $339.00 

Compact   2 .,$369,00 

Panasonic 

KX1090..... $199.00 

KX1091 $279.00 

KX1092 $409.00 

KX1093 $599.00 

QuadJBt $749.00 

^SiLMEfl-REEO 

400  Letter  Quality $279.00 

500  Letter  Qualily $299.00 

560  Letter  Qualily $429.00 

770  Letler  Duality $779.00 

SG10  (120  Cps| $239.00 

SG15  (120  cps) $399,00 

SD10  (160  cps) $359,00 

SD15  (160  cps) $479,00 

BRIO  (200  cps) $499,00 

SH15  (200  cps) $639.00 

Powertype  Lelter  Quality $319.00 

SBIO  (tJEW) CALL 

TOSHIBA 

1340  (90  column) $599,00 

P351   (132  colu,mnl $1299,00 


PC-150  Desktop- CALL 

PC- 160  Portable CALL 

2220  Dual  Portable $1999,00 

4220  Dual  Desktop $1999.00 

® SANYO 

MBC  550-2  Single  Drive. $699,00 

MBC  555-2  Dual  Drive $969.00 

MBC  775  Portable CALL 

MBC  511   10  meg CALL 

Safari CALL 

6300 CALL 

corona 

PPC22  Dual  Portable $1599,00 

PPCXTA  10  meg  Portable $2799,00 

PC4O022  Dual  Desktop $2199.00 


IBM  PC  SYSTEMS 

Configured  to  your 

specifications. 
Caii  for  Best  Price! 

IBM-PC 

IBM-PC  II 
IBM-XT 

IBM-AT 

PC-8800  System 

NEC  -.■6800  CPU 
NEC  -'■8831  Dual  Drives 
NEC  -  1460  RGB  Monitor 
NEC  -  15LQ  Printer 

$1499.00 


IMSI 

PC  Paintbrush,-,.,,." $94.99 

fLotiis 

Symphony ..$429.00 

1-2-3 $299-00 

PeachPack  (GLJAP/AR) .,$199.00 

lllMicniPra 

WordSlar  2000 $249.00 

WordStar  2000  +  ,- $319.00 

R:Base  4000 $249.00 

Clout  2.0 $129.00 

filoltllllllate 

Mulli  Mate $249,00 


Crosstalk $89,99 

ivicRwon: 

Flight  Simulator $39,99 

MuttiPlan $129-00 

^HION-TATEB 

Framework $399,00 

dBase  II $299,00 

dBase  III $399,00 

Profes^onal  Software 

PC  Pius/The  Boss $249,00 

s^iapse 

File  Manager  (IBM) $39,99 


.ELECTRONIC  ARTS' 

Get  Organized $69.99 

Cut  -n-  Paste,.- , $39.99 

Music  Construction $29.99 

One  -on-  One $29.99 

Financial  Cookbook $34.99 

■a  ALPHA 

Electronic  Desk $199,00 

BBORIADD 

Turbo  Pascai $39,99 

Sidekick $39-99 

SPI 

Open  Access $379,00 

^  llajTand  Softw'arc  Inc. 

Harvard  Project  Manager $209,00 

Total  Project  Manager $269.00 


e^- 


IBM/APPLE 

Access  (NEW) S79.99 

Wrilo/GrapfiJFile/Plan (ea.)  $79.99 

Report $74.99 

Proof $59.99 

Mac  Software CALL 

SSI  Software 

Word  Parfocl $239,00 

Human  Edge"" 

Communication  Edge t99,99 

Management  Edge $1 19.00 

Negotiation  Edge $139.00 

Sales  Edge $1 19.00 

SOFTWARE  GROUP 

Enable- $549.00 

THOUGHTWARE 

Trigger $289,00 

Sell,  Sell.  Sell 

Training $299,00 

Application SI  79.00 


>FTWARE  FOR  IBf«1        MULTIFUNCTION  CARDS  W- 


SlK  Pack  Plus $239.00 

Mega  Plus  II $26900 

I/O  Plus  II $139.00 

Memory  MBIl $249.00 

Advantage-AT $39900 

Preview  Monoaraph $299,00 

Grapfi  Pak  Mono;64K $599.00 

MonoGraph  Plus $399,00 

5251/11 $799,00 

5251/12 $579.00 

3730 $639.00 

BSC $499-00 

deei 

IRMA  3270 $899  00 

IRMA  Print $999.00 

EaGLE 

Color  Card $199.00 

Ulono  Card $149.00 

EVEREX 

Color  Card  (Graphics  Edge) $299,00 

Magic  Card $199,00 

HERCULES 

Grapliics $319  00 

Color $169.00 

uJEAsjociates 

IDEAmax  -  ZPR.  64K,  C,  S.  P.S229  DO 

IDEAmini  -  YPR.  C.  S.  P $189,00 

IDEAminimax  -  MPR  128K $223  OO 

IDEAshare  Software $21900 

IDEA   5251 $699,00 

MYLEX 

The  Chairman $489,00 

PARADISE 

Modular  Graphics  Card $279,00 

Multi  Display  Card $299.00 

Five  Pack  C.  S $159,00 

PLANTRONICS 

Color  Plus $369,00 

k  I  ^rT^^'^^^^^H 

Captain  -  64 $239.00 

Captain  Jr.  12eK ,,$339,00 

Graphics   llAaster $469,00 

Quadboard  II $229.00 

Expanded  Quadboard $239,00 

Quad  612-1- $249-00 

Quad  2  Meg $879.00 

Memory  Board $229.00 

OuadJr  Eip.  Chassis $499,00 

QuadJr  Exp,  Memory ,,,,$219,00 

QuadMemJr $229,00 

Chronograph $89,99 

Parallel  Card $69,99 

Quadcolor  I $219,00 

Quadgraph $379,00 


KEYBOARDS 

Keylronics  Keyboards  5150.  5151, 

515t  Jr.  6149  Jr CALL 

MEMORY  CHIPS 

4164  RAM  Chips (ea.)S2,39 


Type  Y  for  yes  or  N  for  no.  If  you 
press  N,  the  program  asks  if  you 
want   to   input   data   for   another 
game.  If  you  press  Y,  it  asks: 
TO  SCREEN  OR  PRINTER  (S/P)? 

Type  S  or  P.  Softball  Statistics  then 
prints  the  individual  stats  for  all 
team  members  for  that  game,  sort- 
ed in  descending  order  by  batting 
averages  (see  Figure  1).  Because  the 
output  is  formatted  for  an  80- 
column  printer,  it  looks  odd — but  is 
still  readable — on  screens  with  less 
than  80  columns.  By  pressing  any 
key,  you  can  stop  the  screen  or 
printer  output  at  any  time.  Start 
output  again  by  pressing  P. 
Next,  the  program  asks: 

DO  YOU  WANT  SORTED  PRINT- 
OUTS OF  HIT,  RBI,  AND  RUN 
LEADERS  (Y/N)7 

Again,  type  Y  for  yes  or  N  for 
no.  If  you  type  N,  the  program  asks 
if  you  want  to  input  stats  for  anoth- 
er game.  If  you  answer  Y,  it  asks 
again  if  you  want  the  output  direct- 
ed to  the  screen  or  printer,  and  then 
prints  sorted  rankings  for  the  vari- 
ous slugging  categories  for  that 
game  (see  Figure  2).  As  before,  you 
can  stop  the  output  by  pressing  any 
key  and  restart  it  by  pressing  P. 

Finally,  the  program  asks: 

DO  YOU  WANT  TO  INPUT  STATS 
FROM  ANOTHER  GAME  (Y/N)? 

Usually  you  type  N  at  this  prompt, 
unless  you're  entering  results  of 
more  than  one  game.  If  you  type  Y, 
the  program  repeats  the  entire  pro- 
cess described  above. 

Season  Totals 

Softball  Statistics  makes  it  easy  for 
you  to  tabulate  running  totals  for 
the  entire  season  by  storing  game 
results  on  tape  or  disk.  After  you've 
entered  and  viewed  the  stats  for  the 
most  recent  game,  the  program 
asks: 

WOULD  YOU  LIKE  TO  MERGE  IN 
DATA  FOR  THE  YEAR  {Y/N)7 

The  first  time  you  run  Softball 
Statistics,  of  course,  you  won't  have 
any  previous  data  on  disk  or  tape, 
so  you'd  answer  N,  skipping  to  the 
next  prompt.  During  subsequent 
runs,  you'd  answer  Y  to  merge  in 
data  for  the  year.  The  program  then 
requests  a  filename  for  the  disk  or 
tape  data  file  and  merges  these  ex- 
isting stats  with  the  results  you've 
entered  for  the  latest  game  or 
games. 


Figure  2:  Printouts  of  Slugging  Stats 

HITS  SORT:  RBIS  SORT: 


I  PLAYER 
39  MfiRTY 
iZ   JOHN 
55  KIKE 
44  JIN 
09  BOB 
it   BARRY 

86  KEN 
22  PETE 

87  BILL 

TOTAL  HITS 


HITS 


26 


#  PLAYER 
«9  MfiRTY 
83  JOHN 
22  PETE 

86  BGB 
44  JI!1 
55  NIKE 
88  KEN 

87  BILL 
8&  BARRY 

TOTAL  RBiS 


RBIE 


12 


RUNS  SORT: 
I  PLAYER 

;4  m 

85  BOB 
83  JOHN 

86  BARRY 
89  MflRTV 
55  NIKE 
8a  KEN 
22  PETE 

87  BILL 

TOTAL  RUNS 


RUNS 
4 
3 
2 
2 
2 
1 
1 
1 
1 

17 


Season  totals  are  then  comput- 
ed automatically,  and  the  program 
asks: 

DO  YOU  WANT  A  PRINTOUT  OF 
THE  YEAR'S  STATS  (Y/N)? 

If  you  type  N,  you're  asked  to 
specify  a  filename  to  save  the  up- 
dated data  file,  and  the  program 
ends.  If  you  answer  Y,  the  program 
asks  if  you  want  output  directed  to 
the  screen  or  printer,  and  then 
prints  season  totals  for  all  players. 
This  printout  includes  the  team's 
win-loss  record  and  sorts  players  in 
descending  order  by  batting  aver- 
ages (see  Figure  3). 

Afterward,  the  program  asks  if 
you  want  sorted  printouts  for  hits, 
RBls,  and  runs — again,  based  on 
season  totals  (these  charts  resemble 
those  in  Figure  2).  Finally,  the  pro- 


gram gives  you  the  opportunity  to 
save  the  updated  data  file  on  disk  or 
tape  until  the  next  game. 

Softball  Computing 

If  you're  interesting  in  program- 
ming, you  can  learn  a  lot  by  study- 
ing Softball  Statistics  because  it's 
written  in  straight  BASIC  with  no 
machine  language.  In  fact,  the  input/ 
output  routine  beginning  at  line 
3000  and  the  printing  routine  start- 
ing at  line  4000  are  general  enough 
to  be  adapted  to  your  own 
programs. 

You  don't  have  to  be  a  pro- 
grammer, though,  to  appreciate 
Softball  Statistics.  If  you're  a  soft- 
ball  statistician,  no  longer  do  you 
have  the  worst  position  on  the 
team.  Maybe  it's  the  shortstop.... 


Figure  3:  Printout  of  Season  Totals 

STATISTICS  FOR  THE  YEAR: 

RECORD  FOR  THE  YEAR:  SINS: 2  LOSSES:! 

ROSTER  IS  SORTED  BY  BATTING  AVERAGE 


I  PLAYER 
83  JOHN 
if,  BARRY 

87  BILL 
55  NIKE 
44  JIN 

88  BOB 

89  HARTY 
22  PETE 
88  KEN 

TOTALS 


AB  RUNS 
16    18 


13 
17 
!S 
!8 
17 
17 
17 
17 

155 


12 

18 

18 

9 

12 

18 

7 

6 

86 


HITS 
11 
H 
18 
!8 

Q 

8 
8 
6 
b 

79 


RBI 
11 
B 
7 
18 
7 
7 

4 
7 

71 


2B 

J 

4 
3 
5 


4 
3 
3 

36 


4 
1 
3 
3 
2 
! 
2 
1 
1 

18 


HR 
2 

4 
3 
1 
1 
2 

3 
1 
2 

19 


BE 


4 

2 
1 
4 
3 

4 

26 


AVE 
8.688 
8.411 


.556 
.588 
.47! 
.471 
.353 
.353 
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The  long-awaifed  companion  to  Tool  Kit:  BASIC  has  arrived. 


VfC-20 


and  Comi 


'^odore  64 


^ool  Kit: 


DonHeetj' 


:tsxx 
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COMPUTEI's  VIC-20  and 
Commodore  64  Tool  Kit:  Kemal 

by  Dan  Heeb     $16,95 

•  Explains  the  mysterious  ROM  routines  in  o  clear,  step-by- 
step  fashion 

•  Includes  screen,  serial,  tape,  and  RS-232-C  routines 

•  Helps  you  understand  each  of  the  standard  Kernal  jump 
routines  by  describing  them  thoroughly  and  clearly, 

This  book  can  help  a  beginner  understand  how  the  Kernal 
and  the  computer  work.  It  can  help  an  intermediate  pro- 
grammer become  on  expert,  And  for  experts,  this  is  an 
essential  reference. 


And  new  for  the 
Commodore  64  and  128, 

COMPUTEi's  Commodore  64/ 1 28 

Collection     Edited,  $12.95 

Now  for  the  Commodore  64  and  the  Commodore  128, 
this  collection  brings  together  some  of  the  best  games, 
applications,  and  utilities  from  COMPUTEI  Publications. 

•  All  programs  run  on  the  64  and  the  128  running  in  64- mode, 

•  Sections  detail  the  advanced  special  features  of  the 
powerful,  new  1 28  computer. 

•  A  disk  is  available  which  includes  programs  in  the  book. 

This  Is  the  ideal  book  for  beginning  and  intermediate  users 
of  the  Commodore  64  and  the  new  Commodore  128. 


.COM""'"""' 


Look  for  these  and  other  best-selling  titles  from  COMPUTE!  Books  at  your  local  computer  and  book  stores 

or  order  directly  from  COMPUTE!  Publications. 

To  order,  call  toll  free  800-334-0868  or  mail  your  payment  (including  $2.00  per  book  for  shipping  charges) 

to  COMPUTEI  Books.  P.O.  Box  5058,  Greensboro,  NC  27403. 
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Or^e  of  fhe  ABC  PuDii^n^ng  CcrT-;pcr'»es 


Program  1:  Softbari  Statis- 
tics, IMain  Program 

Version  By  Patrick  Parrish, 
Programming  Supervisor 


100 

D5=-5 

110 

D6=2 

120 

PL=20 

130 

DIM  B(9),CC{20),IN(21),ST( 

3 ) ,  RT(  20 , 8 ) , TT ( 20 , 8 )  ,  F?  { 8 ) 

,NA$(20),R?(21) 

140 

TH5="TEAM  NAME" 

150 

C$="0000" 

160 

FOR  1=1  TO  8 

170 

READ  F?(I) 

180 

NEXT  I 

190 

FOR  J=l  TO  PL 

200 

READ  NAS(J) 

210 

NA$CJ)=MID$(MA?(J),1,10) 

220 

NEXT  J 

230 

FOR  J=l  TO  PL 

240 

R$( J)=MID$(NA?(J) ,1,LEN(NA 

?(J)))+MID9("tl0  SPACES)", 

1,10-LEN(NA5(J)) ) 

250 

FOR  1=1  TO  8 

260 

TT(J,I)=0 

270 

ST(I)=0 

280 

NEXT  I 

290 

NEXT  J 

300 

GOSUB  2030 

310 

PRINT  "GAME  STATISTICS" 

320 

PRINT  "WHO  DID  YOU  PLAY" 

330 

INPUT  or? 

340 

PRINT  "ESTER  YOUR  SCORE  AN 

D  THEIR  SCORE  (SEPARATED  B 

Y  A  COMMA)" 

350 

INPUT  YS,TS 

360 

H=H+ABS{YS>TS) 

370 

L=L+ABS(TS>YS) 

380 

FOR  J=l  TO  PL 

390 

IF  MID5(NA?(J),4,7)<>"PLAY 

ERX"  THEN  420 

400 

R?(J)=R$(J)+"0000000000000 

00000000000000000000 . 000 " 

410 

GOTO  600 

420 

GOSUB  2030 

430 

PRINT  MID$(NA$(J),4,LEN(NA 

?(J)));"'S  STATISTICS  FOR 

THIS  GAME:" 

440 

FOR  1=1  TO  8 

450 

B(X)=0 

460 

PRINT  P?(l) 

470 

INPUT  B(I) 

480 

IF  LEN(STR5(B(I)))>=D5  THE 

K  450 

490 

IF  B(I)<>999  THEN  540 

500 

FOR  K=I  TO  3 

510 

B(K)=0 

520 

NEXT  K 

530 

1=8 

540 

NEXT  I 

550 

GOSUB  13  50 

560 

FOR  1=1  TO  8 

570 

RT(J,I)=RT(J,I)+B{I) 

580 

TT(J,I)=TT(J,I)+B(I) 

590 

NEXT  I 

600 

NEXT  J 

610 

GOSUB  1670 

620 

MM=0 

630 

FOR  1=1  TO  8 

640 

FOR  J=l  TO  PL 

650 

ST(I)=ST{I)+TT{J,I) 

660 

NEXT  J 

670 

B(I)=ST(I) 

680 

NEXT  I 

690 

B5(J)="" 

700 

GOSUB  1350 

710 

TT$=R5CJ) 

720 

GOSUB  1560 

730 


740 
750 
760 
770 


PRINT  "DO  YOU  WANT  TO  INPU 
T  STATS  FROM  ANOTHER  GAME 
(Y/N)?" 
GOSUB  1920 
IF  A$="Y"  THEN  230 
GOSUB  2030 

PRINT  "WOULD  YOU  LIKE  TO  M 
ERGE  IN  DATA  FOR  THE  YEAR 
(Y/N)7" 
GOSUB  1920 
IF  AS="N"  THEN  840 
C=l 

GOSUB  3010 
W=SW+W 
L=.SL+L 
GOSUB  1670 
FOR  J=l  TO  PL 


780 

790 

800 

810 

820 

830 

S40 

850 

860  FOR  1=1  TO  8 

870  IF  A$="K"  OR  MID5CNA9(J),4 

,7)="PLAYERX"  THEN  920 
880  B(I)=VAL(MIDS(R$CJ).11+(I- 

1)*4,4)) 
890  B(I)=RT(J,I)+B(I) 
900  RT(J,I)=B(I) 
910  GOTO  930 
920  B(I)=RT(J,I) 
930  ST(I)=0 
940  NEXT  I 

950  R5(J)=MID$(R5(J),1,10) 
960  GOSUB  1350 
970  NEXT  J 
980  MM=1 

990  FOR  1=1  TO  8 
1000  FOR  J=l  TO  PL 
1010  ST(I)=ST(I)+RT( J,I) 
1020  NEXT  J 
1030  B(I)=ST(I) 
1040  NEXT  I 
1050  R?(J)="" 
1060  GOSUB  1350 
1070  TTS=R$(J) 
1080  GOSUB  2030 

1090  PRINT  "DO  YOU  WANT  A  PRIN 
TOUT  OF  THE  YEAR'S  STATS 
(Y/N)7" 

1100  GOSUB  1920 

1110  IF  A5="N"  THEN  1140 

1120  GOSUB  1670 

1130  GOSUB  1560 

1140  PRINT  "DO  YOU  WANT  TO  SAV 
S  THE  DATA  (Y/N)?" 

use  GOSUB  1920 

1160  IF  A$="Y"  THEN  1180 

1170  END 

1180  C=2 

1190  GOTO  3010 

1200  REM  SHELL  SORT 

1210  FOR  J=l  TO  PL 

1220  IN(J)=J 

1230  CC(J)=VAL(HID$(R$(J),BB,E 

)) 
1240  NEXT  J 
1250  FOR  J-PL-1  TO  1  STEP  -1 


1260 

FOR  1=1  TO  J 

2050 

1270 

IF  CC(IN(I))>CC(IN(I+1))T 

HEN  1310 

1280 

TE=IN(I) 

2060 

1290 

IN(I)=IN(I+1) 

1300 

IN(I+1)=TE 

2070 

1310 

NEXT  I 

1320 

NEXT  J 

2030 

1330 

RETURN 

1340 

REM  BUILD  H? 

1350 

IF  B(1)=0  THEN 

1330 

2090 

1360 

IF  B(3)=0  THEN 

1380 

1370 

GOTO  1410 

1380 

B(9)=0 

2100 

1390 

AV$="0.000" 

1400 

GOTO  1420 

1410 

B{9)  =  IN1'(B(3)/B(1)*10004-. 

3000 

5)/1000+.0001 

1 

4000 

1420  FOR  I=>1  TO  8 

1430  B9=STR$(B(I) ) 

1440  B5=MID$(C5,1,D5-LEN(B9))+ 

MID5(B9,D6,LEN(B5)) 
1450  R?(J)=R?(J)+B5 
1460  NEXT  I 

1470  IF  B(9)=0  THEN  1530 
1480  AVS=STR5(B(9) ) 
1490  IF  M1D?(AVS,1,1)<>"  "  THE 

N  1510 
1500  AVS=MID5(AV$,2,6) 
1510  IF  MID? (AV5,1,1 )<>"."  THE 

N  1530 
1520  AV?="0"+AV$ 
1530  R5(J)=R?(J)+MID$(AV9,1,5) 

1540  RETURN 

1550  REM  SORT  BY  AVERAGES 

1560  BB=43 

1570  E=S 

1580  GOSUB  1210 

1590  IF  MM=1  THEN  1630 

1600  GOSUB  2030 

1610  PRINT  "DO  YOU  WANT  A  PRIN 

TOUT  OF  THE  GAME'S  STATS 

(Y/N)?" 
1620  GOSUB  1920 
1630  IF  A5="N"  THEN  1660 
1640  GOSUB  1960 
1650  GOTO  4010 
1660  RETURN 
1670  PRINT 

1680  PRINT  "WORKING..." 
1690  RETURN 
1700  PRINT 

1710  PRINT  "DO  YOU  WANT  SORTED 
PRINTOUTS  OF  HIT,  RBI,  A 
ND  RUN  LEADERS  (Y/N)?" 
1720  GOSUB  1920 
1730  IF  A?="N"  THEN  1760 
1740  GOSUB  1960 
1750  GOTO  1770 
1760  RETURN 
1770  GOSUB  1670 
1780  BB=19 
1790  E=4 
1800  GOSUB  1210 
1810  1=3 
1820  GOSUB  5000 

1830  BB=23 

1840  GOSUB  1210 

1850  1=4 

1860  GOSUB  5000 

1870  BB=15 

1880  GOSUB  1210 

1890  1=2 

1900  GOSUB  5000 

1910  RETURN 

1950  RETURN 

1960  PRINT 

1970  PRINT  "TO  SCREEN  OR  PRINT 

ER  (S/P)?" 
2020  RETURN 
2040  RETURN 

DATA  TIMES  AT  BAT, RUNS, HI 

TS , RBIS , DOUBLES , TRIPLES ,H 

OME  RUNS, WALKS 

REM  LIST  PLAYERS  BY  NUHBE 

R  &  NAME 

DATA  44  JIM, 22  PETE, 03  JO 

HN,0e  KEN, 55  MIKE 

DATA    06    BARRY, 07    BILL, 08 

BOB, 09    MARTY, 10    PL 

AYERX 

DATA    11    PLAYERX,12    PLAYER 

X,13    PLAYERX,14    PLAYERX,1 

5    PLAYERX 

DATA  16  PLAYERX, 17  PLAYER 

X,18  PLAYERX, 19  PLAYERX, 2 

0  PLAYERX 

REM  INPUT/OUTPUT  ROUTINE 

REM  PRINT  ROUTINE 
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Program  2:  Softball  Statis- 
tics, Commodore 
Modifications 

Version  By  Patrick  Parrish, 
Programming  Supervisor 

Please  refer  fo  "COMPUTEI's  Guide  to  Typing 
In  Programs"  before  entering  this  listing. 

1920  GET  AS  :rein  17 

1930  IF  A$=""  THEN  1923: rem  61 
1940  IF  (AS<>"Y")  AND  (AS<>"N" 

)  THEN  1920  :rem  186 
1980  GET  P$  :rein  38 

1990  IP  P$=""  THEN  1980: rem  88 
2000  IF  (PS<>"S")  AND  (P?<>"P" 

)  THEN  1980  :rem  206 
2010  DE=- ( P$=" S " ) *3- ( P$=" P" ) *4 

srem  205 
2030  PRINT  CHR$(147)  : rem  64 
3010  GOSUB2030:PRINT"ENTER  DAT 

A  FILE  NAME:":INPUTFF$ 

:rem  161 
3020  PRINT" {down! DISK  OR  CASSE 

TTE  (D/c)?"  :rem  21 
3030  GETA5tIF( (A5<>"C")AND(A5< 

>"D"))ORA5=""THEN3030 

:rem  227 
3040  1FA5="D"THEN3060  : rem  120 
3050  D1=0 :G$="" :GOTO3070 

: rem  13 
3060  PP?="@0:"+FF$;D1=1 

:rein  156 
3070    IFC=2THEN3130  : rem    1 

3080    IFD1=?1THENG?  =  ",S,R" 

:rem   85 
3090    OPENl,l+7*Dl,e*Dl,FF$+G5t 

GOSUB3 160: INPUT* 1,SW,SL:F 

0RJ=1T0PL  :rera    93 

3100    INPUTil,RS( J)  :rem   229 

3110    RS(J)=MIDS(NA?(J),1,LEN{N 

A$(J) ) )+MID$("{l0    SPACES) 

■',1,  10-LEN(NAS(  J)  )  )+R5(J) 

:rera   70 

3120    NEXTJ:GOSUB3160iCLOSEl :G0 

SUB3160:RETURN  : rem   82 

3130    IFD1=1THENGS=",S,W" 

:rem   86 
3140    OPENl,l+7*Dl,l+7*Dl,FFS+G 

$  :GOSUB3160!pRItJT#l  ,W;CHR 

5(13) ;L:FORJ=lTOPL:rem  11 
3150    PR1NT#1,MIDS(R?(J),11,32) 

:NEXTJ:GOSUB3160:CLOSEl!G 

OSUB3160:END  : rem  18 
3160  IFD1=0THENRETURN  : rem  74 
3170  IFQ=0THENOPEN15,8,15iO=l 

:rem  202 
3180  INPUT#15,A,B$,C,DtIFATHEN 

PRINTA, B5 , C , D : STOP 

trem  187 
3190  RETURN  srem  173 

4010  0PENDE,DE:PRINT*DE:IFMM=1 

THENT?="TaE  YEAR" SGOTO403 

0  srem  237 

4020  T5="THIS  GAME"     : rem  17 
4030  PRINT#DE, "STATISTICS  FOR 

{ SPACE) "T$" : " :IFMM=1THEN4 

050  :rem  33 

4040  PRINT#DE,TM5"  VS  "0T$" 

(4  SPACES ) SCORE : "YS"-"TS! 

GOTD4060  :rem  161 

4050  PRINT#DE, "RECORD  FOR  THE 

{SPACE)  YEAR:  {2  SPACES  }WItl 

S:"W"  LOSSES: "L   : rem  217 

4060  PRINT#DE:PRINT#DE, "ROSTER 

IS  SORTED  BY  BATTING  AVE 

RAGE":PRINT#DE  : rem  68 
4070  PRINT#DE, "#(2  SPACES ) PLAY 

ER{4  SPACES )AB( 3  SPACES )R 

UNS{3  SPACES )HITS 

{4  SPACES) RBI [5  SPACES) 2B 


(5  SPACES)3B{5  SPACES)HR" 
;  : rem  2 

4080  PRINT#DE,"{5  SPACES )BB 

{6  SPACES )AVG" !F0RJ=1T0PL 
:rem  239 

4090  IFMID?(R$(IN(J)),4,7)="PL 
AYERX"THEN4160      : rem  7 

4100  PRINT#DE,MID$(R5(IN(J) ) ,1 
,10)"  ";  :rem  219 

4110  FORI=1TO8:Q=0:FORK=0TO3:I 
FMID?(R?(IN(J)),11+(I-1)* 
4+K,l) <>"0"THENO=1 

:rem  181 

4120  IFMIDS(R?(IN(J) ),11+(I-1) 
*4+K,l)="0"ANDQ=0ANDK=3TH 
ENPRINTfDE, "0"; :GOTO4150 
: rem  208 

4130  IFMID5(R$(IN( J) ) ,11+(I-1) 
*4+K, 1 )="0"ANDQ=aTHENPRIN 
TIDE,"  "; :GOTO4150:rem  19 

4140  PRINT*DE,MIDS(RS(IN(J)) ,1 
1+(I-1)*4+K,l)f   :rem  147 

4150    NEXTK:PRINT#DE, " 

{3  SPACES}"; :GOSUB5110:NE 
XTI:PRINT#DE,"t2  SPACES)" 
HID$(R$(IN(J)),43,5) 

srem  212 

4160  NEXTJ!PRINTfDE:PRINTtDE," 
TOTALS {5  SPACES)"; 

:rem  188 

4170  F0RI=1T08 :Q=0!FORK=lTO4sI 
FMID9(TT5, (I-1)*4+K,l}<>" 
0"THENO=1  srem  3 

4180  IFMID5(TT$, (I-1)*4+K,l)=" 
0 " ANDQ=0AKDK=4  THENP  RI NT#  D 
E, "0" r SGOTO4210    srem  26 

4190  IFMID$(TT$,(I-1)*4+K,1)=" 
0"AHDO=0THENPRINTfDE,"  "; 
:GOTO4210  srem  92 

4200  PRINT#DE,MID$(TT$,(I-1)*4 
+K, 1) J  srem  214 

4210  NEXTK : PRINT! DE, " 

{3  SPACES)"; :NEXTI:PRINT# 
DE,"[2  SPACES ) "MID? (TT?, 3 
3,5)  srem  34 

4220  PRINT#DE:CLOSEDEsGOTO1700 

srem  117 

5000  OPENDE,DE:PRINT#DE:T=0iPR 
INT#DE:PRINT#DE,F$(I)"  SO 
RT: ":PRINT#DE     srem  242 

5010  PRINT* DE, "#{2  SPACES ) PLAY 
ER{5  SPACES) "F5( I) !F0RJ=1 
TOPL  irem  123 

5020  IFHIDS(R$(IN(J)),4,7)="PL 
AYERX"THEN5090      : rem  4 

5030  PRINT#DE,MID5(R5(IN(J)),1 
,10) "[4  SPACES)"; srem  222 

5040  Q=0:FORK=0TO3tIFMID?(R$(I 

N(J) ) ,BB+K,1)<>"0"THENQ=1 

srem  166 

5050  IFMIDS(R$(IN(J)),BB+K,1)= 
"0"ANDQ=OANDK«3THENPRINT# 
DE,  ■'0":GOTO5080         srem   60 

5060  IFHID5(RS(IN(J)),BB+K,1)= 
"0"ANDQ=0THENPRINT#DE,"  " 
f SGOTO5080        :rem  186 

5070  PRINT#DE,MID$(R5(IN( J) ),B 
B+K, 1 ) ; : I FK=3THENPRINT#DE 
, ""  srem  147 

5080  NEXTK:T=T+VAL(MID5(R?(IN( 
J) ),BB,E) ) SGOSUB5110 

srem  191 

5090  NEXTJ:PRINT#DE:PRINT#DE, " 
TOTAL  ";F5(I);"{5  SPACES) 
";T  srem  126 

5100  PRINTfDEsCLOSEDE: RETURN 

srem  82 

5110  GETA5sIFA$=""THENRETURN 

srem  202 

3120  GETA5sIFA?  =  ""0RA$<>-"P"THE 
N5120  srem  199 

5130  RETURN  srem  169 


Program  3:  Softball  Statis- 
tics, IBM  PC/PCjr 
Modifications 

Version  By  Patrick  Parrish, 
Programming  Supervisor 

Please  refer  to  "COfJPtJTErs  Guide  to  Typing 
In  Progroms"  before  entering  this  listing. 

EL  90  WIDTH  80: KEY  QFFsDEF  SE6«=0 
sPOKE  1047, PEEK {1047)  OR  b 
A 
JC  1920  A»=rNKEY» 
H  1930  IF  A«"»"  THEN  1920 
FF  1940  IF  CA*<>"Y")  AND  (A«<>"N 

")  THEN  1920 
BO  19B0  P«=rNKEY« 
LF  1990  IF  P«=""  THEN  1980 
ftS  2000  IF  CP«<>"S">  AND  (P«<>"P 

")  THEN  19B0 
01  2010  DE=-(P«-"S") 
NJ  2030  CLS 

BE  3010  ON  ERROR  GOTO  3090 
m   3020  CLS; PRINT  "ENTER  DRIVE  A 

ND  DATA  FILE  NAME  (IE., 

B!STATS.DATH"t  INPUT  FF» 
DA  3030  IF  C=2  THEN  3070 
DO  3040  OPEN  FF*  FOR  INPUT  AS  #1 

: INPUT  *1,SW,SLjFDR  J-1 

TO  PL: INPUT  #i,R«(J) 
JB  3050  R»(J)=MID«CNA*(J), 1,LEN< 

NA«(J)  ))+riID«C" 
", 1, 10-LEN(NA«(J) ) )+R«< 

J) 
«C  3060  NEXT  J  s  CLOSE  ttisON  ERROR 

GOTO  0: RETURN 
EK  3070  OPEN  FF*  FOR  OUTPUT  AS  # 

IsPRINT  tl.W.LsFDR  J=l  T 

D  PLsPRINT  «1,«ID*(R*(J) 

,11,32) 
KO  30B0  NEXT  J: CLOSE  «l:ON  ERROR 

GOTO  01  END 
6L  3090  CLOSE  #1: PRINT  "DISK  ERR 

OR  # " ; ERR ; " OCCURRED . " : PR 

INT  "TRY  AGAIN. " 
H£  3100  PRINT: PRINT  "HIT  A  KEY  T 

0  CONTINUE" 
CH  3110  A«=INKEY«sIF  ft«=""  THEN 

3110 
JH  3120  RESUME  3020 
PK  4010  FG-0:DN  ERROR  SOTO  5140 
ly  4020  IF  DE=1  THEN  OPEN  "SCRN; 

"  FOR  OUTPUT  AS  #1  ELSE 

OPEN  "LPTl!"  FOR  OUTPUT 

AS  #1 
SD  4030  PRINT  #l,sIF  MK=1  THEN  T 

«="THE  YEAR"  ELSE  T»="TH 

IS  GAME" 
DO  4040  PRINT  #1, "STATISTICS  FOR 
"jT«)":"iIF  MM-0  THEN  P 

RINT  «l,TM*j"  VS  ")OT«j" 
SCOREj " J YSl "-" ! TSj GO 

TO  4060 
FF  4050  PRINT  «1, "RECORD  FOR  THE 
YEAR]   MINSl")M|"  LOSSE 

S:";L 
JP  4060  PRINT  #1, SPRINT  #1,"RDST 

ER  IS  SORTED  BY  BATTING 

AVERAGE" SPRINT  #1, 
Lft  4070  PRINT  #!,"«   PLAYER     A 

B    RUNS    HITS    RBI 
2B      3B      HR"; 
FH  40B0  PRINT  #1,  "      BB       A 

VQ"iFOR  J-1  TO  PL: IF  MID 

«<R«(IN(J) ) ,4, 7) -"PLAYER 

X"  THEN  4140 
J6  4090    PRINT    «1,MID«(R«(IN(J)), 

1,10)"    '•)  I  FOR    1-1    TO   8lD 

-01  FOR   K-0    TO   3iIF    MID»( 

R«(tN(J)  ),11-^(I~1>«4+K,1 

)<>'*0"    THEN   Q-1 
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K  4100  IF  MID«(R«<IN(J>),  11  +  <I- 
1)  t4-t-K,  l)-"0"  AND  □-«  AN 
D  K-3  THEN  PRINT  #1,"0"; 
■GOTO  4130 

at  4110  IF  MID*CR»(INtJ) ), 11+(I- 
l)»4+K,l)-"»"  AND  Q-a  TH 
EN  PRINT  #1,"  "tsOOTO  41 
30 

IK  4120  PRINT  #1,HID«(R»<IN(J)), 
11+(I-1)«4+K, 1) I 

OB  4130  NEXT  KsPRINT  *1,"  ";iG 
OSUB  SI 101  NEXT  Is  PRINT  tt 
1,"  "NID«(R«(IN(J) )  ,43, 
5) 

SI  4140  NEXT  JiPRINT  «l,sPRINT  • 
1, "TOTALS      "I 

E6  4150  FOR  I»l  TO  a!Q=0:FOR  K-1 
TO  4jIF  MID»tTT», <I-1)» 
4+K, 1)<>"0"  THEN  Q=l 

LK  4160  IF  MID«<TT«,  <I-1)«4-H<,1) 
-"0"  AND  Q-0  AND  K-4  THE 
N  PRINT  #1, "0" I J  GOTO  419 
0 

£1(4170  IF  HID«tTT«,  (I-l)«4+K,  1) 
-"0"  AND  Q-0  THEN  PRINT 
#1,"  "(I  GOTO  4190 

II  4180  PRINT  *l,niD«<TT«, (I-l)« 

4+K,l)5 
P!  4190  NEXT  KsPRINT  #1,"    "j:N 

EXT  1 1  PRINT  #1,"   "M1D«( 

TT«,33,5) 
KL  4200  PRINT  #1,! CLOSE  »1:DN  ER 

ROR  SOTO  0I0OTD  1700 

W   5000  FG=1:0N  ERROR  GOTO  5140 
L«  5010  IF  DE-1  THEN  OPEN  "SCRNj 

"  FOR  OUTPUT  AS  ttl  ELSE 

OPEN  "LPTli"  FOR  OUTPUT 

AS  #1 
JL  3020  PRINT  #1, :T=0: PRINT  «l,s 

PRINT  #1,F«(I)"  SORT!" I P 

RINT  #1, 
m   5030  PRINT  in," It       PLAYER 

"FSCDsFOR  J"l  TO  PL:  IF 

MID»<R«(IN(JJ),4,7)-"PLA 

YERX"  THEN  5090 

HL  5040  PRINT  #1 ,  MID*  <R«  <  IN  (J>  >  , 
1,10>"  "I  10-01  FOR  K-0 
TO  3i IF  MID*(R»(IN<J)), 
BB+K,1)<>"0"  THEN  0-1 

DK  5050  IF  MID«(R»(IN(iJ)  )  ,BB+K,1 
)-"0"  AND  Q-0  AND  K-3  TH 
EN  PRINT  #1,"0":GOTO  508 
0 

SC  5060  IF  MID«(R«(IN(0)  ),BB-H<,1 
)-"0"  AND  Q-0  THEN  PRINT 
Wl,"  ";:GOTD  50B0 

DN  5070  PRINT  #1 ,  MID*  <R«  C  IN  (  J)  )  , 

BB+K,1);>IF  K-3  THEN  PRI 

NT  #1,"" 
£6  5080  NEXT  K:T=T+VAL(MID«(R*(I 

N(J) } ,BB,E) ) iQOSUB  5110 
KK  5090  NEXT  JsPRINT  «»l,!pRINT  tt 

1, "TOTAL  ")F*(I) ! "      " 

sT 
LI  5100  PRINT  #1,: CLOSE  «l:ON  ER 

ROR  GOTO  0: RETURN 
fX  5110  A*=INKEY«5lF  A»=""  THEN 

RE  TURN 
CO  5120  A«=INKEY«:IF  A*=""  OR  A* 

O'P"  THEN  5120 
JK  5130  RETURN 
HG  5140  CLOSE  #ls PRINT  "PRINTER 

ERROR  « " i  ERR  j " OCCURRED . " 

: PRINT  "TRY  AGAIN." 
IF  5150  PRINT:  PRINT  "HIT  A  KEY  T 

0  CONTINUE" 
BE  5160  A*=INKEY*:IF  A*=""  THEN 

5160 
PG  5170  IF  FG=0  THAN  RESUME  4020 
ELSE  RESUME  5010 


Program  4:  Softball  Statis- 
tics, Apple  Modifications 

Version  By  Patrick  Parrish, 

Programming  Supervisor 
please  refer  to  fne  "Apple  Automatic  Proof- 
reader" article  before  entering  this  listing. 

39  90   D«    =    CHR«     (4):  I*    =    CHR«     (9 

) 
3C    100    D5    =    4 
BD    110    D6    =    1 

43  1920    GET    fi« 

H    1930    IF    A*    =    ""    THEN    1920 

ift    1940    IF     (A*    ■:     >    "Y")     AND     (fl« 

<  >  "N")  THEN  1920 
«5  1980  GET  P« 

ai  1990  IF  P»  =  ""  THEN  1980 

C<?  2000  IF  (Pt  <  >  "P")  AND  (P« 

<  >  "S">  THEN  19B0 
*B  2010  DE  =  (P»  =  "B") 

<5  2030  HOME 
JE  3010  HOME 
?5  3020  PRINT  "ENTER  DATA  FILE  N 

AME:":  INPUT  FF»:  DNERR 

GOTO  3100 
16  3030  PRINT  Dt;"OPEN  ";FF«:  IF 

C  =  2  THEN  3070 
D6  3040  PRINT  D«; "READ  ";FF»:  IN 

PUT  SW,SL:  FOR  J  =  1  TO 

PL;  INPUT  R«(J) 
♦  D  3050  R*(J)  =  MID*  <NA*(J>,i, 

LEN  (NA«CJ)))  +  MID*  (" 
",1,10  -  LEN  (N 

A«(J)  )  )  ••■  R«(J> 
<l  3060  NEXT  J:  GOTO  30B0 
9D  3070  PRINT  D»; "yRITE  "jFF*:  P 

RINT  W;  CHR*  (13);L5  FOR 
J  =  1  TO  PLs  PRINT  MID* 
(R*{J) , 11,32) :  NEXT  J 
E3  3080  PRINT  D«; "CLOSE  ";FFt:  P 

OKE  216,0:  IF  C  =  2  THEN 
END 
n  3090  RETURN 
Dl  3100  HOME  :  VTAB  Ss  PRINT  "ER 

ROR  #  ";  PEEK  <222) J "  OC 

CURRED  AT  LINE  ";  PEEK  ( 

219)  t  256  +  PEEK  (218) 
K   3110  VTAB  10:  PRINT  "HINT:  HA 

VE  YOU  PREVIOUSLY  SAVED 

THE":  PRINT  "DATA  FILE  T 

0  DISK?" 
C5  3120  PRINT  D«; "CLOSE  "5FF*:  P 

RINT  :  PRINT  "TRY  AGAIN. 

":  PRINT  :  PRINT  "HIT  AN 

Y  KEY":  SET  A* 
24  3130  IF  C  =  1  THEN  810 

44  3140  EarO  3010 

33  4010  PRINT  :  IF  DE  =  1  THEN  4 

030 
El  4020  PRINT  D*;"PR4I1"J  PRINT  I 

«; "80N" 
3F  4030  IF  MM  =  1  THEN  T»  =  "THE 

YEAR":  GOTO  4050 
EA  4040  T*  -  "THIS  GAME" 
D4  4050  PRINT  "STATISTICS  FOR  "T 

*":":  IF  MM  =  1  THEN  407 

0 
65  4060  PRINT  TM«"  VS  "DT*"     S 

CORE: "YS"-"TS:  GOTO  4080 
3(1  4070  PRINT  "RECORD  FOR  THE  YE 

AR:   WINS:"W"  LOSSES: "L 
31  4080  PRINT  ;  PRINT  "ROSTER  IS 
SORTED  BY  BATTING  AVER A 

GE":  PRINT 
m    4fl90  PRINT  "«   PLAYER     AB 
RUNS    HITS     RBI 

2B      3B      HR      BB 
AVG" 
iC  4100  FOR  J  =  1  TO  PL;  IF  MID* 
(RStlNiJ) ) ,4,7)  =  "PLAY 

ERX"  THEN  4160 
J3  4110  PRINT  MIU*  (R*(IN(J>  )  ,  1  . 


10)  '  ";  !  FOR  I  =  1  TO  8: 
Q  =  0:  FDR  K  =  0  TO  3:  I 
F  MID*  (R»<IN(J) ) , 11  +  ( 
I  -■  1)  «  4  +  K,  1)  <  >  "0 
"  THEN  Q  =  1 

V  4120  IF  MiD*  (R« (IN<J) ) , 11  + 
(I  1)  «  4  +  K, 1)  =  "0" 
AND  Q  =  0  AND  K  =  3  THE 
N  PRINT  "0";:  GOTO  4150 

li   4130  IF  MID*  (R*(INiJ)  )  ,  11  + 

(I   1)  *  4  «■  K,  n  =  "0" 

AND  0-0  THEN  PRINT  " 

";:  GOTO  4150 
3C  4140  PRINT  MID*  (R«  ( IN  ( J  )  )  ,  1  1 

+  (I  -  U  *  4  +  K,  1)  ; 
tJ  4150  NEXT  K:  PRINT  "    ";:  GO 

SUB  5120:  NEXT  I:  PRINT 

"   "  MID*  (R*<IN(J)),43, 

5) 
ei  4160  NEXT  J:  PRINT  1  PRINT  "T 

OTALS      "; 
B!  4170  FOR  I  =  I  TO  B:D  =  0:  FD 

R  K  =  1  TO  4:  IF  MID*  <T 

T»,<I  -  1)  *  4  ■*•  K,l)  < 

>  "0"  THEN  G  =  1 
D2  4180  IF  MID*  (TT«,(1  -  1)  *  4 
+  K, I)  =  "0"  AND  Q  =  0 

AND  K  =  4  THEN  PRINT  "0" 

; :  GOTO  4210 
46  4190  IF  MID*  (TT*,{I  -  1)  »  4 
+  K, 1)  =  "0"  AND  Q  =  0 

THEN  PRINT  "  ";:  GOTO  42 

10 
FF  4200  PRINT  MID*  (TT«,(I  -  1) 

«  4  +  K, 1) ; 
68  4210  NEXT  K:  PRINT  "    ";:  NE 

XT  Is  PRINT  "   "  MID*  (T 

T*,33,5) 
E4  4220  PRINT  ;  IF  DE  =  0  THEN  P 

RINT  D*; "PR«0" 
iB  4230  GOTO  1700 
FF  5000  PRINT  ;  IF  DE  =  1  THEN  5 

020 
Efl  5010  PRINT  D«;"PR#1":  PRINT  I 

»; "80N" 
ID  5020  PRINT  :T  =  0:  PRINT  ;  PR 

INT  F«(I)"  SORT:":  PRINT 
HI   5030  PRINT  "#   PLAYER      "F* 

(I) :  FOR  J  =  1  TO  PL:  IF 
MID*  (RtdNiJ)  ),4,7)  = 

"PLAYERX"  THEN  5090 
3?  5040  PRINT  MID*  (R«aN(J)),l, 

10) "     "! :Q  =  0:  FOR  K 

=  0  TO  3:  IF  MID*  (R*(IN 

(J) ) ,BB  +  K, 1)  <  >  "0"  T 

HEN  a    =  1 
CF  5050  IF  MID*  <R*(IN(J) ) ,BB  + 

K,  1)  =  "0"  AND  0  =  0  AND 
K  =  3  THEN  PRINT  "0":  G 

OTO  50B0 
DD  5060  IF  MID*  (R*  ( IN  { J  )  )  ,  BB  + 

K,  1)  =  "0"  AND  Q  =  0  THE 

N  PRINT  "  ";:  GOTO  5080 
6F  5070  PRINT  MID*  (R* { IN ( J) ) , BB 
+  K, 1);:  IF  K  =  3  THEN 

PRINT  "■■ 
2B  5080  NEXT  K:  T  =  T  +  VAL  (  MID 

*  (R*(IN(J) ) ,BB,E)) :  GOS 

UB  5120 
25  50V0  NEXT  J;  PRINT  :  PRINT  "T 

OTAL  "iFiU)  ;  ■'      ";T: 

PRINT 
ID  5)00  IF  DE  -  0  IHEN  PRINT  D«; 

■ PRtt0" 
DE  5110  RETURN 
3t  5120  A  =  PEEK  (  -  16384):  IF 

A  <  128  THEN  5150 
FF  5130  A  ^  PEEK  (  -  16384):  IF 

A  <  128  THEN  POKE  -  1636 

8,0:  GOTO  5130 
iB  5140  A*  =  UHH*  (A  -  128):  IF 

A*  <  >  'P   THEN  3130 
E6  5150  RETURN 
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Program  5:  Softball  Statis- 
tics, TI-99/4A  ISAodifications 

Version  By  Patrick  Parrish, 
Programming  Supervisor 


40  SOTO  100 

S0  CALL  KEV<0,K,S) 

60     IF  5-0  THEN  90 

70  CALL  KEYC0,K,S) 

S0  IF  (S-0)+<K<>B0) THEN  70 

90  RETURN 

100  D5-4 

1  1 0  Dt- 1 

210  NA«(J)-SEB«(NA« (J) , 1 , 10 

) 
240  R«(J)-SE8«(NA« 

(NA« (J) ) )&SEG« 

{10  SPACES}", 1 

•<J> ) > 
390  IF  SEG«(NA«CJ) 

LAYERX"  THEN  4 
400  R« (J) -R« (J)&"0 

00000000000000 

.000" 
430  PRINT  SEQ«(NA« 

tNA«  <J)  )  )  I  "  '  S 

S  FOR  THIS  SAM 
G70  IF  <A«-"N")+(8 

) ,4,7)-"PLAYER 

20 
860  B(I)-VAL(SES«< 

(I-l) «4,4> ) 
950  R«<J>-SEG«(R«< 
1230  CC(J) -VAL<SE6 

B,E}  ) 
1440  B«>SEIi«(C«,  1  , 

)  >«tB« 
14S0  R«(J)-R«<J}<tB 
1490  IF  SE8*(AV«, 1 

THEN  1510 
1S00  AV«-8EQ«<AV«, 
1910  IF  SES«(AV«,1 

THEN  1530 
1S20  AV«-"0"arAV« 
1S30  R«(a>-R« (J) &S 

,S> 
1920  CALL  KEY(0,K, 
1930  IF  S-0  THEN  1 
1933  IF  (K<>7B')»<K 

1920 
1940  A«-CHR«(K) 
19B0  CALL  KEY(0,K, 


<J) , 1 , LEN 

<  " 

, 10-LEN (NA 


,  4 ,  7  )  <>  "  P 
20 

000000000 
000000000 

(J) ,4, LEN 
STATISTIC 
El  " 

EO«(NA«(J 
X")THEN  9 

R« (J)  ,  1  1  + 

J) . 1 , 10) 
•(R«(J) ,B 

D5-LEN(B« 

» 

,  1  K  >  "   " 

2,  by 

,  1  >  <> "  .  " 


EG»(AV«, 1 

S> 

920 

<>B9>THEN 


S) 


1990 

IF  S-0  THEN  1980 

2000 

IF  <K<>B0) »«K<>S3) THEN 

1960 

2010 

DE-- (K-B0) 

2030 

CALL  CLEAR 

3010 

CALL  CLEAR 

3020 

PRINT  "ENTER  DATA  FILE 

NAME  I  " 

3030 

INPUT  FF* 

3040 

PRINT 

3050 

PRINT  "DISK  OR  CASSETT 

E  (D/C)?" 

3060 

CALL  KEY(0,K,5> 

3070 

IF  S-0  THEN  3060 

30S0 

A*-CHR«(K} 

3090 

IF  (A«<>"C" ) t (A«<>"D" ) 

THEN  3060 

3100 

IF  A«-"D"  THEN  3130 

3110 

D»-"CS1" 

3120 

GOTO  3140 

3130 

D»-"DSK1. "&FF» 

3140 

IF  C-2  THEN  3240 

31S0 

OPEN  ttliD«, INTERNAL, IN 

PUT  , FIXED 

3160 

INPUT  ttliSW 

3170 

INPUT  #1;SL 

3180 

FOR  J-1  TO  PL 

3190 

INPUT  #1:R«<J) 

3200 


3210 
3220 
3230 
3240 

3250 
3260 
3270 
32B0 

3290 
3300 
3310 
4010 
4020 

4030 
4040 
4050 
4060 
4070 
4080 

4090 
4100 


41  10 
4120 


4130 
4140 


4150 
4160 


R«(J>-SEB« (NA«(J> , 1 ,LE 

N(NA«  (J)  >  >  t(&EG«  <  " 

(10  SPACES}" , 1, 10-LENCN 

A«<J}  )  >S[R«  (J) 

NEXT  J 

CLOSE  «1 

RETURN 

OPEN  411  sDS,  INTERNAL,  DU 

TPUT, FIXED 

PRINT  ttlsW 

PRINT  #llL 

FOR  J=l  TO  PL 

PRINT  ttl:SEG«(R«(J) , 11 

,32) 

NEXT  J 

CLOSE  #1 

END 

IF  DE=0  THEN  4030 

OPEN  «DE: "RS232/2.BA-9 

600.PA-N.DA-B" 

PRINT  #DE 

IF  MM-1  THEN  4070 

D»-"THIS  GAME" 

GOTO  40S0 

D»-"THE  YEAR" 

PRINT  #DEi "STATISTICS 

FOR  "  }D«r"  :  " 

IF  MM-1  THEN  4120 

PRINT  #DEiTM»l"  VS  ";0 

T»|"{4  SPACEB}SCQREl'"l 

YSp "-"|TS 

GOTO  4130 

PRINT  #DEl "RECORD  FOR 

THE  YEAR*   WINS: "iWj " 

LOSSES! "|L 

PRINT  «DE 

PRINT  »DEl "ROSTER  IS  S 

ORTED  BY  BATTING  AVERA 

QE" 

PRINT  #DE 


4170 
41B0 

4190 

4200 
4210 
4220 

4230 


4240 
4250 


4260 
4270 
4280 


4290 
4300 
4310 

4320 
4330 

4340 
4350 
4360 


PRINT  #DEi "«   PLAYER 

{4  5PACES}AB 

{3  SPACES}RUNS 

{3  BPACES}HITS 

{4  5PACES}RBI 

{5  SPACES}2B 

CS  SPACES}3B 

tS  SPACES}HR 

{5  SPACES}BB 

t6  SPACES}AVS" 

FOR  J-1  TO  PL 

IF  SEG« (R«(IN(J)  )  ,4,7) 

-"PLAYERX"  THEN  4370 

PRINT  «DEi SEGt (R« <IN (J 

)  )  ,  1,10)  !  "  "I 

FOR  I-l  TO  B 

□  -0 

FOR  K-0  TO  3 

SEG«<RS(IN  (J)  )  ,  11-^  ( 
)»4+K,l)-"0"  THEN  4 


IF 

I-l 

250 

Q-1 

IF 

(  I- 

1  )  + 

PRI 

GOT 

IF 

(I 

1)T 


(SEG«  (R«(IN(J)>,lli- 
1  ) t4  +  K,  1  )  <>"0")  +  (Q- 
(K<>3>THEN  42B0 
NT  #DEj "0"i 

0  4320 
(SEGS(R«(INt J) ) , 11+ 

1  ) *4  +  K,  1 )<>"0")  +  <a- 
HEN  4310 

PRINT  #DE; "  " ; 

GOTO  4320 

PRINT  #DE: SEG* (R« (IN ( J 

)  )  ,  1  1+  (  I-l)  «4  +  K,  1 )  ; 

NEXT  K 


PRINT  #DE: 

GOSUB  50 
NEXT  I 
PRINT  #DE! 
(IN(J) ) ,43,5) 


(3  SPACES}" 


";SEG« (RC 


4370 
4380 
4390 

4400 
4410 
4420 
4430 


NEXT  J 
PRINT  #DE 

PRINT  »DE! "TOTALS 

{5  SPACES}"; 

FDR  1=1  TO  B 

O-0 

FOR  K=l  TO  4 


IF  SEG« tTT«, ( 1-1 ) »4+K, 
l)-"0"  THEN  4450 
4440  Q«=l 

4450  IF   (SEG»(TT«, tI-1) t4+K 

, 1)<>"0")+(Q-1)+<K<>4) 

THEN  44B0 
4460  PRINT  #DE!  "0"  ; 
4470  GOTO  4520 
4480  IF   (5EG« <TT$,  ( I-l  )  *4  +  K 

,  1)<>"0")  +  (0-1  ) THEN  45 

10 
4490  PRINT  «DE: "   " J 
4500  GOTO  4520 
4510  PRINT  «DE:SEG« (TTS, ( I- 

1) t4+K, 1 ) ; 

4520  NEXT  K 

4S30  PRINT  »DE:"C3  SPACES}" 

4540  NEXT  I 

4550  PRINT  «DE!"    "sSEG»(TT 

«,  33, 5) 
4560  PRINT  #DE 
4570  IF  DE-0  THEN  1700 
4580  CLOSE  «DE 
4590  GOTO  1700 
5000  IF  DE-0  THEN  5020 
5010  OPEN  #DEs "RS232/2. BA-9 

600.  PA-=N.  DA-B" 
5020  PRINT  #DE 
5030  T-0 


5040 
5050 

5060 
5070 

50S0 
5090 

5100 

51  10 
5120 
5130 

5140 
5150 


5160 

5170 
5180 


5190 
5200 
5210 

5220 
5230 
5240 
5250 

5260 
5270 
52B0 
5290 

5300 
5310 
5320 
5330 


PRINT 
PRINT 
!  " 

PRINT 
PRINT 
{5  SP 
FOR  J 
IF  SE 
-"PLA 
PRINT 
)  )  ,  1, 
Q-0 
FOR  K 
IF  SE 
.  1) 
Q-1 
IF  <S 
K,  1  )< 
)  THEN 
PRINT 

GOTO 

IF   (S 

K,  1  X 

210 

PRINT 

SOTO 

PRINT 

>  )  ,BB 

IF  K< 

PRINT 

NEXT 

T-T  +  V 

,BB,E 

GOSUB 

NEXT 

PRINT 

PRINT 

I )  ;  "  C 

PRINT 

IF  DE 

CLOSE 

RETUR 


«DE 
«DEiF« (I ) 


SORT 


ttDE 

#DEl "«    PLAYER 
ACES}" ; F«  <  I) 

1  TO  PL 
G«(R« ( IN(J) ) ,4,7) 
YERX"  THEN  5270 

#DEs  SEG« (R« ( IN ( J 
10); "(4  SPACES}"; 


0  TO  3 
G« (R«  < IN  (J )  )  , 
0"  THEN  5150 


BB  +  K 


EG« (R« ( IN ( J) ) , BB+ 
>"0" )  +  (Q-1 )  +  (K<  >3 

5180 

#DE: "0" 

5240 

EG* (R« ( IN ( J) ) ,BB+ 

>"fa"  )  +  (0-i  )  THEN  5 

#DE!  "  "  ; 
5240 

#DE:SEG«<R« ( IN<J 
+K, 1) 5 
>3  THEN  5240 

#DE: " " 
K 

AL(SE6« (R« ( IN(J> ) 
>  ) 

50 
J 

ttDE 

#DE: "TOTAL  " i F* ( 
5  SPACES} "jT 

ttDE 
=0  THEN  5330 

ttDE 
N 
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Program  6:  Softball  Statis- 
tics, Atari  Version 

Please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  betore  entering  ttiis  listing. 

SH90    PL"20«OPEN    «3,4,0,'"Ki" 
•(1(100    DIM    B  (9)  ,CC(PL)  ,  IN(PL 

+1) ,ST(B) ,RT(PL,B> ,TT 
(PL, 8)  , A*  < 12)  ,B«  (4)  ,C 

« (4) ,FN*(14) ,F« (96) ,P 

» ( 1 ) ,R» ( <PL+1) »47) 
HE  110    DIM    LLflSEL  (8)  ,LNAME(P 

L) , AV«(S) , TE« (32) ,TM» 

-(23)  ,  TT«  (37)  ,  0T»(25)  , 

T«<9) ,DE«<2) 
110  120    TM«-"TEftM    NflME"iFOR     J 

-1     TO    PLlFOR     I-l     TO    B 
I RT(J, I)-0iNEXT     IsNEX 

T    J 
OD130     C»-"0000"  jF»""     "iF«(9 

6) -F»iF« (2) -F«i R*-"     " 

iR»( (PL+1) «47>-R»iR« ( 

2)-R« 
FH140  FOR  I-l  TD  OsREAD  fl«! 

LLABEL ( I )-LEN («•) iF» ( 
(I-l ) «12+1 , I«12)-A*: N 

EXT  r 
ED  150  FOR  J-1  TO  PLsREAD  A» 

:  LNAME  (  J)-=LEN(  A«) 
PO  1&0  R«(  ( J-1  )  t47+l  ,  ( J-1  )  t4 

7+10) "A«i NEXT  J 
BD  170  FOR  J-1  TO  PLlFOR  I-l 
TO  8: TT(J, I ) -0iST ( I ) 

-0SNEXT  IiNEXT  J!pRI^ 

T  '■  <CLEflR>GflME  STATIS 

TICS":PRINT  "WHO  DID 

YOU  PLAY?" 
NJ  180  INPUT  OT»sPRINT  "ENTE 

R  YOUR  SCORE  AND  THEI 

R  SCORE  (SEPARATED  BY 
A  COMMA) "! INPUT  YS,T 

SiW-W+(YS>TS) iL-L+(TS 

>YS) 
HH  190     FOR     J  =  l     TO     PLsl3  =  0jR-J 

-1 
6D  200     IF    R*(Rt47+4,  R»47+10) 

-■■PLAYERX"  THEN  R»(R» 

47+1 1 , J«47) -"00000000 

000000000000000000000 

0000. 000":GaTO  270 
D6210  PRINT  "<CLEARJ  "5R«(R» 

47+4,R147+LNAME( J) ) j " 

'S  STATISTICS  FDR  THI 

S  BAMEl  '■ 
NE  220  PRINT  i  FOR  1  =  1  TO  8 
]A  230  TRAP  230SPRINT  F«(<1- 

1  ) tl2+l ,  Itl2>  I  INPUT  A 

I  TRAP  400001 B ( I )~Ai  IF 
LEN (STRt (B ( I ) ) ) >-4  T 

HEN  230 
ON  240  IF  B(I)=999  THEN  FOR 

K=l     TO  8;e(K)=0: NEXT 

K)  I-B 
Kt2S0    NEXT     I:BDSUB    460 
KL  2t0    FOR     1  =  1     TO    S:RT(J,I)  = 

RT ( J ,  I ) +B ( I  )  : TT  (J,  I  )  = 

TT ( J, I ) +B ( I ) ! NEXT  I 
HK  270  NEXT  J  :  GOSUB  580:MM  =  0 

:FOR  I-l  TO  SiFOR  J=l 
TO  PL!ST( I )=ST(I)+TT 

(J,  I  )  I  NEXT  J: B ( 1 ) =ST ( 

DsNEXT  I 
DH  280  GOSUB  460!  TT«  =  R«  (  (J-1 

) «47+l 1 , J*47) 5 GOSUB  5 

40 
KG  2  90  PRINT  SPRINT  "DO  YOU 

WANT  TO  INPUT  STATS  F 

ROM  ANOTHER  GAME   (Y/N 

)?"sBDSUB  630: IF  A»=" 

Y"  THEN  170 
HF  300  PRINT  "  <:CLEAR>WOULD  Y 

OU  LIKE  TO  MERGE  IN  D 


J6  310 
IB  320 

J«  330 


6B  340 
E6  350 
DI  360 

LE  370 


BC  380 


M  390 


HP  4  00 


HO  410 
AP  420 


Gt(  430 


I  440 


PO4S0 
OF  460 


DI  470 
FJ  480 


LO  490 
KD  S00 

KO  5  10 

68  S20 
in  530 
JK  540 

n*;  550 

OL  S60 

HN  570 
PK  580 


FOR  THE 
8DSUB  6 
HEN  320 
GOSUB  3 
L  +  L 

B  5B0:F 
OR  1  =  1 

OR  R«  ( 
1 ) «47+l 
HEN  340 
-VAL (R« 
I-l) *4, 
-1 ) *4+3 
>  +B(I )  ! 
DTO  350 
-RT (J,  I 
)=0 

I : GOSU 

SFOR  I- 

TO  PL 
( J  ,  I  )  :  N 
I ) iNEXT 

R« ( i J-1 
PRINT  " 
MANT  A 
E  YEAR 

I GOSUB 
»-"Y"  T 
BOSUB  5 


YEAR 
30!  IF 


(Y/N 
AS=i" 


010: M=SW+U 

OR  J=l  TD 
TO  8: IF  A* 
( J-1 ) 147+4 
0) ="PLAYER 

( ( J-1 ) «47+ 
( J-1 ) «47+l 
) ) : B( I)=RT 
RT ( J, I ) =B ( 

) 

B  460:NEXT 

1  TO  BsFOR 

ST (  I  )-ST ( I 

EXT  Ji B  (  I ) 

I  : GOSUB  4 

) «47+l 1 , Jt 
tCLEARJDO 
PRINTOUT  0 
S  STATS   (Y 

630 
HEN  GOSUB 
40 


ATA 

)  ?" 
N"  T 
C=l 
:L  =  S 
GOSU 
PL:  F 
=  "N 
,  (J 
X"  T 
Bd) 
11+1 
1  +  {  I 
(J,  1 
I  )  :  G 
B  (  I  ) 
ST  (  I 
NEXT 

J 
MM-1 

J-1 
)  +RT 
-ST  ( 
60 

TT«- 
47)  : 
YOU 
F  TH 
/N)  ? 
IF  A 
580 

PRINT  sPRlNT  "DO  YOU 
WANT  TO  SAVE  THE  DATA 
(Y/N) ?" jBOSUB  630IIF 
A*-"N"  THEN  END 
C-2:BDT0  3010 
FOR  J-1  TO  PL: IN(J)-J 
iCC (J)-VAL(R* (  (J-1) *4 
7+BB, ( J-1 ) t47+BB+E-l ) 
)INEXT  JiREM  SHELL  SO 
RT 

FOR  J-PL-1  TO  1  STEP 
-liFOR  I-l  TO  Ji IF  CC 
(IN(I)  )  >CC (  IN<  I  +  l )  )  T 
HEN  450 

TE-IN( I) : IN(I)-IN( I+l 
)  1  IN(I  +  1)-TE 
NEXT  I  J  NEXT  J s RETURN 
IF  B ( 1 }<>0  AND  B(3) <> 
0  THEN  B<9)-INT  !B<3) / 
B  (1 ) 1 1000+0.5) / 1000+1 
E-04iBOTO  4B01REM  BUI 
LD  R« 

B(9)-0I AV«-"0. 000" 
FOR  I-l  TD  B: TE«-""s I 
F  LEN(STR« CB< I ) 1 )<4  T 
HEN  TE«-C« (1,4-LEN(ST 
R«  (B<  I  ) > }  ) 

B»-STR«  <B ( I )  )  : TE« (LEN 
(TE«)+1)-B* 
R»((J-l)*47+il+(I-l)t 
4, (J-1 )«47+l 1+ ( I-l ) «4 
+3)-TE«jNEXT  IiIF  B(9 
)-0  THEN  530 
AV«-STR« (B<9) ) ! AV«»Ay 
•  (  1  , 5)  : IF  AV» (1,  1) <>" 
. "  THEN  530 
TE«-"0" ! TE«<2>-AV«: AV 
«-TE» 

R» ( (J-1) »47+43, J»47)= 
AV•!RETURN 

BB-43; E'Si BOSUB  420:1 
F  MM-1  THEN  560 
PRINT  "{CLEAR>DD  YDU 
WANT  A  PRINTOUT  OF  TH 
E  SAME'S  STATS   (Y/N)? 
"leOSUB  630 
IF  A»-"Y"  THEN  GOSUB 
iSaiGOTO  4010 
RETURN 

PRINT  ;PRINT  "WORKING 
. . . " : RETURN 


1C590  PRINT  "DO  YOU  WANT  SO 
RTED  PRINTOUTS  OF  HIT 
,  RBI,  AND  RUN  LEADER 
S  < Y/N) ?":GDSUB  630 

El  600  IF  A«="N"  THEN  RETURN 

JB610  GOSUB  650tGDSUB  S80tB 
B-19t E-4i GOSUB  420:1- 
3i FLAG-0: GOSUB  5000:B 
B-23lG0SUB  420 
JC620  I-4:FLA6-1  iGOSUB  5000 
iBB-lSaGOSUB  420:1-2: 
FLAB-2: GOSUB  5000: RET 
URN 
KL  630  XX-VAL(STR»(0)  )  iQET  » 
3,K! A«-CHR*(K>  I  IF  (A« 
<>"Y")  AND  (A»<>"N") 
THEN  630 
HK  640  RETURN 

LK6S0  PRINT  iPRINT  "TO  SCRE 
EN  OR  PRINTER   (S/P)7" 
Hi;660  XX-VAL(STR»(0)  )  I  BET  « 
3,KiP«-CHR»(K)  I  IF   (P« 
<>"S")   AND   (P«<>"P") 
THEN  660 
IS  670  DE- (P«-"S"  )  t  RETURN 
KO680  DATA  TIMES  AT  BAT, RUN 
S,HITS, RB IS, DOUBLES, T 
RIPLES.HOME  RUNS, WALK 
S 
LB  2060  REM  LIST  PLAYERS  BY 

NUMBER  St  NAME 
IF  2070  DATA  44  JIM,  22  PETE, 
03  JOHN, 08  KEN, 55  MI 
KE 
LL  2080  DATA  06  BARRY, 07  BIL 
L,08  BOB, 09  MARTY, 10 
PLAYERX 
EC2090  DATA  11  PLAYERX,  12  P 
LAYERX,13  PLAYERX, 14 
PLAYERX, 15  PLAYERX 
Ei;2100  DATA  16  PLAYERX,  17  P 
LAYERX.IB  PLAYERX, 19 
PLAYERX, 20  PLAYERX 
HH  3000  REM  INPUT/OUTPUT  ROU 

TINE 
ftH3010  POKE  195,0iPRINT  " 
CCLEAR>ENTER  DEVICE 
AND  FILENAME" : PRINT 
" (ie. ,  Di STATS.DAT) : 
": INPUT  FN* 
DI  3020  TRAP  30701  IF  C-2  THE 

N  3050 
BF  3030  OPEN  #1,4,0,  FN«:  INPU 
T  «1 I SW: INPUT  #1 )SL: 
FOR  J-1  TO  PL: INPUT 
*1; TE« 
RP3040  R«  (  (J-1  )  »47  +  l  1  ,  ( J-1  ) 
»47+42)-TE«i NEXT  J:C 
LOSE  #1JRETURN 
FJ  3050  OPEN  #1,B,0,FN«!PRIN 
T  #l;WiPRINT  «ljL:FD 
R  J-1  TO  PL 
OK  3060  PRINT  #1  )R«(  (J-1  )«47 
+  1  1,  (J-1)  »47  +  42)  !NEX 
T  JiCLOSE  ttliEND 
CC  3070  POKE  849,  li  CLOSE  «i: 
TRAP  40000: IF  PEEK ( 1 
95)«0  THEN  3010 
013000  PRINT  SPRINT  CHR«(25 
3)  ; "«  ERROR  " | PEEK (  1 
95) I "  ("iCLOSE  #1 
EI  3090  IF  PEEK(764)  <255  THE 
N  POKE  764,255iGDT0 
3010 
nJ3100  GOTO  3090 
PL  4000  REM  PRINT  ROUTINE 
BJ4010  DE»-"Pi"ilF  DE-1  THE 

N  DE«-"E: " 
CD  4020  TRAP  5170IDPEN  #1,8, 

0,  DE» 
OP4030  PRINT  #liIF  MM-1  THE 
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N  T«-"THE  YEflR"iBDTO 
40S0 

ltD4040  T«-"THIS  BAME" 

FC4050  PRINT  #1;  "STATISTICS 

FOR     ";T»;  ' IF    MM= 

1  THEN  4070 

LO4060  PRINT  #l!TM«;"  VS  "; 
0T»;"{4  SPACESJSCDRE 
:  " ; YS; "-" jTSi BOTQ  4 
060 

EJ4070  PRINT  #1 1  "RECORD  FOR 
THE  YEAR:    W I  MS ; " ; W 
;  "  LOSSES  1  "  ;  L 

EK40B0  PRINT  #l!PRINT  #l!"R 
QSTER  IS  SORTED  BY  S 
ATTINB  AVERAGE" I PRIN 
T  «1 

OC4090  PRINT  #l!"#   PLAYER 
•C4  SPACESJAB 
{3  SPACES>RUNS 
{3  SPACES>HITS 
C4  SPACES>RB1 
tS  SPACES>2B 
<:5  SPACES>3B 
C5  SPACES>HR 
{5  5PACES>BB 
ti  SPACES>AVG" 

HI  4100  FOR  J-1  TO  PLiIF  R«  < 
( 1N< J)-l) t47  +  4,  (IN  (J 
) -1 ) »47+10) -"PLAYER X 
"  THEN  4ia0 

6(4110  PRINT  #I;R«  <  (  IN(  J) -1 
)t47+l, (IN(J)-1)«47+ 
10)1"  " } 

DH4120  FOR  I-l  TO  SsQiStFOR 
K-0  TO  3 

Bl(4130  IF  R«  (  <  IN(a)-n  «47  +  l 
1+ ( I-l ) «4+K, < IN( J) -1 
) «47+l 1+(I-1) t4+K><> 
"0"     THEN  Q~l 

E14140  IF  R«  (  (  IN  (J) -1  )  *47  +  l 
1+(I-1 ) «4+K,  C IN( J)-l 
)  »47+l  1  +  (  I-l  )  »4  +  K)  ■=" 
0"  AND  Q-0  AND  K"3  T 
HEN  PRINT  #1 ; "0" ; : GO 
TD  4170 

iL4150  IF  R*  (  (  IN  (J) -1  )  t47+l 
1+(I-1 ) «4+K, ( IN(J)-1 
)t47+ll+(I-l)*4+K)»" 
0"  AND  Q-=0  THEN  PRIN 
T  #1 ) "  "; :GOTa  4170 

M4160  PRINT  #1 ! R» t (IN (J) -1 
) t47  +  ll+<l-l ) «4  +  K,  (I 
N( J) -1 ) »47+l 1+ ( I-l ) * 
4  +  K)  ; 

flI4170  NEXT  KiPRINT  #1;" 

<:3  SPACES>"  ;  :  GOSUB  5 
140INEXT  IsPRINT  «1« 
"}R»  C  ( IN( J) -1 ) «47 
+43, IN(J) «47> 

8H4ia0  NEXT  J:  PR  I  NT  #1  I  PRIN 
T  #1;  "TOTALS 
<5  SPACeS>"j 

H64190  FOR  I''!  TO  B:Q  =  0:FDR 
K-1  TO  4!  IF  TT« (  <  I- 
1 ) »4+K,  (  I-l )  t4  +  K) <>" 
0"  THEN  Q=l 

1N4200  IF  TT*  (  (  I-l)  t4  +  K,  (I- 
1)»4+K)="0"  AND  D=0 
AND  K-4  THEN  PRINT  « 
1) "0" i {GOTO  4230 

HP4210  IF  TT»  (  tl-l  )  »4  +  K,  (  I- 
l)»4+K>-"0"  AND  Q-!0 
THEN  PRINT  #1 ;  "  ";  :G 
OTO  4230 

Bfl 4220  PRINT  # 1 j TT* ( C I-l ) t4 
+K, ( I-l ) t4+K) ! 

AI  4230  NEXT  KiPRINT  « 1  J  " 

{3  SPACESJ" ; :NEXT  I : 
PRINT  #1;  "    " J  TT« (33 
,37>iPRINT  #1:CL0SE 
ilsGDTO  590 


FO5000  IF  FLAG-0  THEN  DE«-" 
Pi  ":  IF  DE"=1  THEN  DE« 
-  ■'  E  :  " 

GO  5010  TRAP  Sia0:IF  FLAG-0 
THEN  OPEN  #1,B,0,DE» 

00  5020  PRINT  #l!T-0sPRINT  « 
1 ! PRINT  «ljF«( (I-l) » 
12+1 , ( I-l ) »12+LLABEL 
(I));"  SORTi"! PRINT 
ttl 

CJ  5030  PRINT  *li"#   PLAYER 
<5  SPACES}" jF« ( ( I-l > 
«12+1,  (I-l ) *12  +  LLABE 
HI  )  )  iFOR  J-1  TO  PL 

LG  5040  IF  RC  (  (  IN(J)-1  >  t47  +  4 
, ( IN(J)-1 ) »47+10)-"P 
LAYERX"  THEN  5110 

EH  5050  PRINT  tt  1 )  R«  (  (  I N  ( J  )  -  1 
) *47  +  l,  (IN(J)-1>  t47  + 
10) ; " (4  SPACES}"! 

M 5060  D-0JFDR  K-0  TO  3iIF 
R« (  ( IN (J) -1 >  »47  +  BB+K 
,  (  IN(J)-l) «47  +  BB+K) < 
>"0"  THEN  Q-1 

EH  5070  IF  R«  (  (  IN  (J> -1)  »47  +  B 
B  +  K,  (IN  (J) -1) «47+BB  + 
K)-"0"  AND  0-0  AND  K 
=  3  THEN  PRINT  #  1  |  "  jS " 
:BOTO  5100 

1(1(5000  IF  R«<  (  IN  (  J)-l)  t47  +  B 
B+K, <IN(J) -1 ) «47+BB+ 
K)-"0"  AND  Q-0  THEN 
PRINT  #1} "  " J iSOTO  5 
100 

66  5090  PRINT  tt  1  |  R*  (  (  IN  ( J  ) -1 
)«47+BB+K, (IN(J)-l)t 
47+BB+K)llIF  K-3  THE 
N    PRINT    «1| "" 

fN5100  NEXT  KiT«T+VAL(R»(  (I 
N (J)-l ) »47+BB, (IN(J) 
-1 ) »47+BB+e-l ) > ;GDSU 
B  5140 

JI15110  NEXT  JlPRINT  tliPRIN 
T  #1}  "TOTAL  "  jF* (  (I- 
1)«12+1, (I-l) «i2+LLA 
BEL(I))>"{6  SPACES>" 

;T 

JK5120  IF  FLA6-2  THEN  CLOSE 
#1  I FLAG-0 

KJ  5130  RETURN 

6F5140  K-PEEK(764)  (  IF  K-255 
THEN  RETURN 

CH5150  GET  #3,Kl  A«-CHRC  (K)  I 
IF  A»<>"P"  THEN  5150 

l!K5160  RETURN 

FF5170  GOSUB  5190JGOTO  4020 

F6S1B0  GOSUB  5190iGaTO  S010 

HC5190  CLOSE  #liTRAP  400001 
PRINT  "TURN  ON  YOUR 
PR1NTER--PRESS    RETUR 
N"! INPUT    A«:RETURN0 


COMPUTE! 

TOLL  FREE 

Subscription 

Order  Line 

800-334-0868 

lnNC919'275-'9a09 


23  PARK  ROW.  NEW  YORK,  N.Y.  10038 

OUDFR  TOLL-FBEE      800-221-8l80 


ATA(!l_^  OMPUTBi  pMxaa      jwu^ftjl"  «M»  piwtbj 


r  ^?^C9u 


-  ^j'i 


*264^ 


'249.9S 

MnirtjQ?  G4»  hWOCM  Mane 

.1  r-'  .,-.>-i*ir:i"ji-i-vo.v¥iJ  s.vr.ij'f'tRf.M 

IBU  PC  PEmONU  COMPUTeMfji-AQ  AC 

TJOn  JJD  COtM  MOrOTOR  iJISSS 
CemmooSfT  ClW  momtOr  iJlDOc 
txunraac^v  ^W  DtiK  omt  Hpaqc 


indul  ATAM  Cr  DRIVE 


f^miTnZVM'lIS  11     MOWTOR 


JUKI  nooLirnffOuAijnr  .5390  95 
rpuri  tX80>;TbOTMATfti1(  ■'Mane 
Aurl-IOlTlfTTH  OUUTTY       ymatx. 

bliidst/MP  BO  CtklJlpWI  sttQ  CIS 

:Dmrn»:;-f  502  DOT  waVrix  IVJb  Ac 


'239.95 
'289.95 
=749.95 


EDV> -nJMIffit  CUK5' 

9e>9f  erottwn -HNTOfi- 

Zarffscx  TrM  ItKUiSUBAU 

airtxWnMjnd  UNK  STBBT  tVHTH 


E^mi 


Hjiywoi  -HOW  re 


'M.95 
'34K 

msi 

'25.95 
>2195 
>49.95 
>2«5 
'2195 


MirnhfVDW  PIS  EACU  sraKr 


'79J5 
'27.95 
'H.95 
'09.95 
'«L9S 
'H.9S 
'2t95 
'2485 
'2495 
'249S 


L..ll.JUi..l..i-j.,:.l..-CTn  EZXaZZaSSma 


Aun   HAflSWItfTBf 
Fwn  im  juronn  r 

i<«a    urn  'CUT  £  PASTT 
^b^c>?ic  nJCHT  9MULAT0II  » 
sVtt  *!t5  WWC  CWffTt«TWt# 
MK^iW  F-1HE«M  STMrr 


'H95 
'J4S5 
'29.95 
'5495 
■3495 
'a95 

'a« 

'4495 
'29.95 
>29.95 


Lj.ji.jjij.'i.jL:!n..'i?m 


HiMN-n 'mi/bc' woms 

Smon  SctWlMr'TYPIPtC  rUTM 
McroWIt  VUIC  miBiPRmR- 

MOrtogrtrri  TKXJJun  «  sei! 

hUgnurn  UkPK.  VOlii 


129.95 
^  '«LB 

■sags 

'4495 
'5495 
'49.95 
'  '39.95 
'109.95 
'119.95 
'59.95 


•t^twJtM  un-ivaif 


*27995 


# 


ssa 


*49» 
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Richard  Mansfield,  Senior  Editor,  and  Patrick  Porrish,  Programming  Supervisor 


Maintain  a  master  index  of  magazine 
articles  with  this  short  BASIC  pro- 
gram for  the  Commodore  64.  128, 
VlC-20,  Plus/4,  16,  PET,  Atari, 
Apple  U  series,  IBM  PC/PCjr,  and 
TI-99/4A.  With  slight  modifications, 
the  Commodore  version  can  work  on 
any  computer  with  Microsoft  BASIC. 


How  many  times  have  you  been 
working  on  a  program  when  you 
recall  a  magazine  article  that  has 
just  the  information  you  need — but 
finding  it  is  another  matter?  That  is, 
you  know  the  article's  somewhere  in 
the  house — but  where?  You  could 
spend  hours  paging  through  back 
issues  to  find  what  you're  looking 
for.  Now,  with  "Fast  Filer,"  you'll 
have  a  fast  and  easy  way  to  retrieve 
such  information. 

Enter  and  save  Fast  Filer  from 
one  of  the  listings  below.  Program  1 
works  on  any  Commodore  com- 
puter, including  the  PET/CBM, 
VIC-20,  64,  Plus/4,  16,  and  the 
new  Commodore  128  (in  64  mode 
or  128  mode).  Program  2  is  the 
Atari  version.  Enter  Program  3  for 
Apple,  Program  4  for  the  IBM 
PC/PCjr,  or  Program  5  for  the  TI- 
99/4A. 

If  you  type  in  one  of  the  non- 
Commodore  versions,  be  sure  to  add 
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lines  1999-2050  from  Program  1.  (TI 
users  should  also  note  line  100, 
which  configures  your  system  for 
printer  output.  Check  your  printer 
manual  and  change  this  line  as 
needed  to  set  up  your  particular 
printer.)  The  program  should  be 
easy  to  convert  for  other  computers 
(such  as  the  TRS-80)  that  use  Miao- 
soft  BASIC.  The  only  lines  you 
need  to  change  are  those  that  in- 
volve screen  formatting  and  printer 
output;  consult  your  user's  manual 
for  the  proper  commands  to  clear 
the  screen  and  so  on. 

Searching  The  Database 

Fast  Filer  is  designed  for  simplicity 
and  convenience.  To  search  the 
database,  all  you  really  need  to  do 
is  type  RUN  and  follow  the 
prompts.  The  program  first  asks 
whether  you  want  to  send  output  to 
the  screen  or  the  printer.  Then  the 
menu  displays  several  options.  You 
can  search  the  database  in  several 
different  ways:  by  magazine  title, 
by  author,  by  subject,  by  publica- 
tion date,  or  by  two  categories  at 
once. 

For  example,  say  you  want  to 
list  all  articles  from  COMPUTE!.  Sim- 
ply choose  option  1  and  enter 
COMPUTE!  when  prompted  for 
the  magazine  name.  To  list  all  arti- 


cles by  Charles  Brannon,  choose 
option  2  and  enter  BRANNON  in 
response  to  the  author  prompt. 
Once  the  listing  begins,  you  can 
pause  it  by  pressing  any  key,  and 
resume  by  pressing  P. 

Fast  Filer  accepts  abbrevia- 
tions, so  it's  usually  not  necessary 
to  type  in  the  entire  name.  You  can 
abbreviate  COMPUTE!  as  COMPU, 
for  example.  However,  you  must 
give  Fast  Filer  enough  information 
to  distinguish  similar  names.  If  the 
database  contains  articles  by  Butter- 
field  and  Buncombe,  entering  BU 
for  the  author  lists  all  articles  by 
both  authors,  since  both  names 
share  those  two  characters.  Enter- 
ing BUT  would  distinguish  the  two 
names  and  list  all  Butterfield 
articles. 

For  added  flexibility,  options  5 
and  6  let  you  search  by  more  than 
one  category  at  a  time.  Option  5 
provides  an  AND  function  to  find 
articles  that  share  two  categories: 
For  instance,  to  find  all  COMPUTE! 
articles  written  by  Charles 
Brannon,  select  option  5  and  enter 
1,2  (be  sure  to  separate  the  num- 
bers with  a  comma).  Then  enter  the 
magazine  and  author  names  as 
prompted. 

Option  6  provides  an  OR  func- 
tion to  find  articles  in  either  of  two 
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COMPUTEI'S  Guicto  to 
TI-i^/4A  Sound  and 
GijapHfcs '  I  I  i  j  { j  I  N  I 

Raymond  J.  Herdd  '  '  '  '  !  i 
Using  dozens  of  examples 
and  clear,  nontechnical 
expianotions,  COMPUTEI's 
Guide  to  Tl  Sound  and 
Graphics  introduces  you  to 
the  trennendous  sound  and 
grophics  capabilities  of  your 
,TI  home  compLrter.  This 
book  includes  exerting  ar- 
cade-style games, 
challenging  educational 
programs,  o  versatile  sprite 
editor,  and  many  more  use- 
ful, ready-to-type-in  pro- 
grams. Whether  you're  a 
beginning  Tl  user  or  an    i  i  j 
experienced  programmer,! 
this  is  a  bool<  you'll  refer  to 
again  and  again. 

$12.95 

ISBN  0-942386-46-9 


COMPUTEI'S  Tl  Collec- 
tion, Volume  One 

An  anthology  of  COM-  j  j  j 
PUTEI's  best  games,       '  '  ■ 
applications,  utilities,  and 
tutorials  for  the  TI-99/4A,  this 
book  includes  more  than  30 
programs,  most  never 
before  published. 
"SuperFont"  Is  an  excep- 
tionally powerful  and  easy- 
to-use  character  editor. 
Other  utilities,  such  as 
"Sprite  Editor"  and  "Sound 
Shaper,"  make  graphics 
and  sound  programming 
simple.  Games  like  "Worm 
of  Bemer"  will  provide  hours 
of  fun,  and  applications  like 
"Mailing  List"  let  you  use 
your  Tl  to  organize  your 
home.  I  I  r  . 

i$12.95        i  I  !  I  I 
ISBN  0-942381^7 1-X 
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COMPUTEI's  Begin-  I 
nei^s  Guide  to  | 

i  Assembly  Language 
on  ttte  TI-99/4A 

Peter  M.  L.  Lottrup 
A  clearty  written,  step-by-  j 
step  tutorial  on  machine     ' 
language  (ML)  program- 
ming for  the  TI-99/4A.  Using 
the  Line-by-Line  Assembler, 
the  basic  concepts  of  ma- 
chine language  program- 
ming are  fully  explained 
and  illustrated.  Many  prac- 
tical, easy-to-fotlow  ML 
examples  are  included,    ;  i 
from  elementary  keyboard,: 
joystick,  and  data  handling 
routines  to  sophisticated  re- 
defined character,  sprite 
manipulation,  and  even 
high-resolution  bitmap  j  j 
mode  techniques,      !  |  ' 

$14.95 
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is  Programs  for  ttie 
TI-99/4A 

Brian  Flynn  ■  j  I  |  j  j  |  j 
Contains  something  for 
everyone:  chapters  on 
!  ,  games  ("Rings  and  Poles"), 
I  I  money  management  ("IRA 
'Planner"),  business  ("in- 
ternal Rate  of  Return"),  sirr^ 
pie  statistics  ("Mean, 
Variance,  and  Standard 
Deviation"),  and  more.  A   | 
wide  variety  of  oppiicationis 
software,  plus  games.  Thirty- 
three  ready-to-type-in  pro- 
;   grams  at  a  low  cost. 

!  |$i2.95  ' 
199  pages,  spilt  wire  bound 
,ISBN,q-94238642-6^     ... 


Order  today! 
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categories.  For  instance,  perhaps 
you're  interested  in  machine  lan- 
guage. With  option  6  you  could  find 
every  article  that  was  categorized 
under  the  subject  MACHINE  LAN- 
GUAGE, or  that  was  written  by  Jim 
Butterfield  (who  often  writes  on 
that  subject).  The  ability  to  search 
two  categories  simultaneously  is 
very  powerful. 

Easy  Data  Entry 

Of  course,  no  database  is  useful 
until  it  contains  some  data.  Line 
1999  of  Fast  Filer  is  a  template  that 
shows  the  format  for  entering  data. 
To  enter  new  data,  simply  add  new 
lines  to  Fast  Filer,  using  line  num- 
bers higher  than  1999.  (Lines 
2000-2040  are  examples  which  you 
can  modify  or  delete.) 

Every  new  entry  must  be  in  the 
form  of  a  BASIC  line  consisting  of  a 
line  number  and  a  DATA  state- 
ment, followed  by  six  data  items 
separated  by  commas.  Here  is  the 
format: 

MAGAZINE  TITLE,  AUTHOR, 
SUBJECT,  DATE,  PAGE  NUMBER, 
COMMENTS 

Because  Fast  Filer  separates 
data  items  with  commas,  you  must 
not  put  commas  within  the  data 
itself.  For  instance,  enter  BRAN- 
NON  C  for  an  author's  name,  not 
BRANNON,  C. 

You  cannot  omit  any  of  the 
data  items  for  a  particular  entry;  if 
you  do,  the  entire  list  of  data  is 
thrown  out  of  sequence.  Instead  of 
leaving  a  particular  item  blank, 
substitute  something  like  N/A  (for 
not  applicable).  For  example,  you 
might  have  an  entry  for  which  you 
don't  feel  the  need  to  add  a  com- 
ment, like: 

2000  COMPUTEt,READERS  FEED- 
BACK,LOWERCASE  FOR  TI, 

4/85,22,N/A 

Pay  particular  attention  to  line 
2050,  which  tells  Fast  Filer  it  has 
reached  the  end  of  the  data.  This 
must  always  be  the  last  DATA  line 
in  the  program.  When  adding  new 
data,  renumber  this  line  according- 
ly. When  you're  done  adding  data, 
resave  Fast  Filer  on  disk  or  tape. 
The  next  time  you  run  it,  all  the 
new  data  is  available.  Since  the 
data  is  appended  to  the  program 
itself,  the  size  of  the  database  is 
limited  only  by  your  computer's 
memory. 
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Designing  A  Database 

Fast  Filer  provides  the  basic  frame- 
work for  a  database,  but  for  maxi- 
mum flexibility,  it  leaves  the  most 
important  design  choices  up  to  you. 
You  are  free  to  choose  whatever 
subject  categories  you  like,  making 
them  as  general  or  as  specific  as 
your  needs  require. 

Creating  categories  deserves 
some  careful  forethought.  Clearly, 
a  subject  category  like  COMPUT- 
ERS is  too  broad  to  be  useful.  On 
the  other  hand,  the  subject  must 
have  enough  breadth  to  encompass 
more  than  one  article.  Consistency 
is  essential,  too.  If  you  pick  MA- 
CHINE LANGUAGE  as  a  subject, 
then  stick  with  that  subject  name; 
categorizing  other  machine  lan- 
guage articles  under  subject  names 
like  ML  or  MACH  LANG  will  result 
in  incomplete  searches. 

Before  adding  your  first  entry, 
you  may  want  to  decide  on  stan- 
dard names  for  your  major  catego- 
ries. These  could  be  saved  for  future 
reference  in  a  written  list  or  added 
to  Fast  Filer  as  REM  statements. 

Use  consistent  names  for  mag- 
azine titles  and  authors  as  well.  If 
you  enter  a  magazine  title  as  COM- 
PUTE (without  the  exclamation 
point),  it  won't  be  found  when  you 
search  for  articles  under  the  key 
word  COMPUTE!  (although  the 
reverse  would  work).  Likewise, 
GAZETTE  is  a  more  convenient  ti- 
tle than  COMPUTEl'S  GAZETTE. 

Fast  Filer's  ability  to  abbreviate 
can  work  to  your  advantage.  For 
instance,  say  that  you  pick 
GRAPHICS  as  a  major  category.  If 
you  enter  graphics  articles  under 
subject  names  like  GRAPHICS 
VIC,  GRAPHICS  C64,  GRAPHICS 
PET,  and  so  on,  then  Fast  Filer  can 
find  all  graphics  articles  (under  the 
subject  GRAPHICS)  as  well  as 
graphics  articles  for  a  particular 
computer. 

There  are  limits  to  what  Fast 
Filer  can  do,  of  course,  as  there  are 
with  any  BASIC  program  this  brief. 
But  its  simplicity  makes  the  pro- 
gram easier  to  customize.  One  of 
the  best  ways  to  learn  program- 
ming is  to  begin  with  an  existing 
program  and  alter  it  to  fit  your  own 
needs.  Such  changes  can  range 
from  the  purely  cosmetic  (changing 
screen  or  character  colors)  to  more 
significant  improvements  (format- 
ting printer  output,  adding  extra 


categories,  etc.).  In  fact,  with  only  a 
few  modifications.  Fast  Filer  can  be 
used  to  index  practically  anything, 
from  books  or  record  albums  to  in- 
vestments, rare  coins,  or  stamps. 

Program  1 ;  Commodore 
Fast  Filer 

Please  refer  to  "COMPUTE!'s  Guide  to  Typing 
In  Programs"  before  entering  ttiis  listing, 

10    DIMA?(6):GS="{7    RIGHT)":REM 

FOR    VIC,     SET    GS=""       : rem    3 

20    PRINT" (CLR) (10    DOWN}"G?"PRI 

NT  TO  {RVSJsfOFFjCREEN  OR 

[RVSjpfoFFJRINTER  ?" : rem  91 

30  GETKS ; IFK$  =  " "0R( K$  <> " P " ANDK 

$<>"S")THEN30       ;reni  191 

40  DE=-(K5="P")*4-(K$="S")*3:0 

PENDE.DE  :rem  14 

50  LABEL5U)  =  "MAGAZINE  TITLE:" 

:LABEL$(2)="AUTH0R'S  LAST  N 

AME:"  :rem  146 

60  LABEL? ( 3)= "THE  TARGET  SUBJE 

CT: ":LABEL5(4)="DATE  (IE., 

i SPACE) 1/14/8B  OH  1/85):" 

:  rem    5 
70    PRINT" 5 CLR) [5    D0WN)"GS"CH00 
SE    ONE     {l-8> : ":PRINTG$" 
{DOWN) (RIGHT) 1.    MAGAZINE" 

:rem   226 
80    PRINTG$"{RIGHT)2.    AUTHOR" :P 
RINTG$" (RIGHT)3.    SUBJECT":? 
RINTG$" [RIGHT)4.     DATE" 

: rem  11 
90  PRINTG5" f RIGHT)5.  AND" : PRIN 
TG?" (right) 6.  0R":PRINTG5" 
(RIGHT)?.  PRINT  ALL":PRINTG 
5"iRIGHT}8.  QUIT(D0\™)" 

:rem  59 

100  GETK5iIFK$=""0R(VAL(KS)<10 

RVALCKS)>8)THEN100  : rem  21 

110    K=VAL(K5) :0NKGOTOl 20, 130,1 

40,150,160,160,300,340 

trem  246 
120  C=l:aOTO350  : rem  79 

130  C=2:GOTO350  : rem  81 
140  C=3tGOTO350  : rem  53 
150  C=4;GOTO350  ! rem  85 
160  H$="OR":IFK=5THENH?="AND" 

:rem  154 

170  PRINTG$"#  "H5"  #  (1-4):":P 

RINTG?: :INPUTN1,N2  :rem  73 

180  IF(N1<10RN1>4)0R(N2<10RJN2> 

4)THEN170  :rem  48 

190  PRINT" (CLR)TYPE  "LABEL${N1 

) :INPUTI15:L=LEN{ II?) 

: rem  141 
200  PRINT" (DOWN) TYPE  "LABEL5(N 
2) :INPUTI2$:L2=LEN(I2?) 

: rem  56 
210  PRINT :Q=0:F=0: RESTORE 

:rem  99 
220  GOSUB450!lFF=lTHEN410 

:rem  238 

230  IFK=6THEN260       :rem  169 

240  IFLEFT5(A$(N1)  ,L)  OI150RLE 

FTS (A?(N2 ) , L2 ) <>I2$THEN280 

: rem  141 

250  GOTO270  : rem  105 

260  IFLEFT5(A$(S1),L)<>I1?ANDL 

EFT5(AS(N2),L2)<>I25THEN28 

0  :rem  193 

270  Q=1:GOSUB470       : rem  173 

280  1FF=0THEN220       : rem  159 

290  GOTO410  I  rem  105 

300  PRINT" f CLR) ":F=0: RESTORE 

:rem  66 
310  GOSUB450iIFF=lTHEN420 

:rem  239 


Apple  Titles 

from  COMPUTE!  Books 


Add  excitement  to  your  home  computing  with  these  fantastic  new  releases  for  your 
Apple  il-series  and  Macintosh  computers,  These  books  are  hot  off  the  presses  and  full 
of  valuable  programming  techniques  and  computing  advice, 


The  Apple  lie:  Your  First  Computer 

Paul  Frelberger  and  Dan  McNeill 
ISBN  0-87455-001-7 

Written  in  a  liveiy  and  entertaining  style,  tliis  book  teaches  everything  a 
beginner  needs  to  know  to  get  started  quickiy  with  the  Apple  ilc.  The 
reader  will  be  taught  how  to  set  up  the  system,  introduced  to  ail  the 
most  popular  types  of  software,  given  a  simple  overview  of  the  hard- 
wore,  and  learn  everything  necessary  to  use  the  Ilc  to  communicate 
with  other  computers.  $9.95 


SpeedScript:  The  Word  Processor  for  Apple  Personal 

Computers 

Chartes  Bronnon  and  Kevin  Martin 
ISBN  0-67455-000-9 

SpeedSciipt  the  most  popular  program  ever  published  by  COMPUTE! 
Publications,  is  a  commercial-quality  word  processor  for  the  Apple  II,  Ilc,  lie, 
and  11+  computers  with  at  least  48K  of  memory  and  DOS  3.3.  Included  are 
ail  the  programs  and  documentation  necessary  to  use  Apple  SpsedScripf. 
In  addition,  we've  included  source  code  and  documentation  about 
SpeedScript  that  have  never  been  published  before.  For  the  price  of  the 
book,  the  user  receives  a  commercial-quality  word  processor — perhaps 
one  of  the  best  software  bargains  ever.  There  is  a  disk  available  which  in- 
cludes programs  in  the  book.  $9.95 


Apple  Machine  Language  for  Beginners 

Richard  Mansfield 
ISBN  0-87456-002-5 

COIVIPUTE!  Publications'  all-time  best-seller,  now  completely  revised  for 
the  Apple  family  of  computers.  The  book  Is  a  clear,  detailed  tutorial 
with  many  step-by-step  examples.  Its  practical  charts  and  easy-to- 
follow  techniques  quickly  show  anyone  familiar  with  programming  in 
BASIC  how  to  tap  the  hidden  potential  of  the  Apple,  how  to  program 
directly  in  the  machine's  own  language,  it  also  Includes  IJ^DS,  one  of 
the  most  efficient  and  powerful  machine  language  assemblers  cur- 
rently available.  For  Apple  11,  II +,  lie,  and  ilc.  There  is  a  disk  avail- 
able which  Includes  programs  in  the  book.  $14.95 


yiacHne 
Language 


Beginners. 


Look  for  best-selling  titles  from  COMPUTEI  Books  at  your  local 
computer  and  book  stores,  or  order  directly  from  COMPUTE! 
Publications. 


COMPUTE!"  Publicationsjnc.® 

One  ot  ttie  ABC  Publishing  Companies  ^^^ 

To  order,  coll  toll  free  800-334-0868  or  mail  your  payment  (including  $2.00  sliipping  charges)  to 
COMPUTEI  Books,  P.O.  Box  5058,  Greensboro,  NC  27403. 


320  GOSUB470:IFF=0THEN310 

:reni  239 

330  GOTO420  :rem  101 

340  CLOSEDE:END         : rem  167 

350  PRINT" (CLRjTYPE  "LABEL5(C) 

:1NPUTINPS :L=LEH(INPS ) 

:rein   41 
360    PRINT :Q=0:F=0: RESTORE 

I  rem   105 
370    GOSUB450:IFF=lTHEbJ410 

:rem    244 
380    IFLEFT$(A?(C) ,L)<>INPSTHEN 
400  :rem    131 

390    Q=1:GOSUB470  :retn    176 

400    IFF=0THEN370  : rem    159 

410    IFQ=0THENPRINTG5"{DOVra) 

{RVSJNO  hatches  FOUND (off] 

(DOWN]"  :rem  49 

420    PRINTG?"ERVS) PRESS    ANY    KEY 

(off]"  :rem   212 

430  GETA5:IFA5=""THEN430 

:rem  81 
440  GOTO70  :rem  56 

450  READA?(1),A5(2),A$(3),A$(4 
),A$(5},AS(6) !IFA?(1)="END 
"THENF=1  :rem  245 

460  RETURN  : rem  122 

470  PRINT#DE,AS(1)" (3  SPACES}" 
AS(2)" (3  SPACES] "A5( 3)" 
fS  SPACES) "A? (4)" 
(3  SPACES) P.  "A$(S)" 
{3  SPACES) "AS (6)    :rem  75 
480  PRIKTtDE  :rero  213 

490  GETA5:IFA'5  =  ""THENRETURN 

: rem  160 

500  GETA?:IFA5=""ORA5<>"P"THEN 

500  :rem  97 

510  RETURN  :rem  118 

1999  REM  DATA  TEMPLATE:  HAGAZI 
NE , AUTHOR , S  U  B J  ECT , DATE , PA 
GE.COHHENTS         : rem  28 

2000  DATA  COMPUTE  I, SCHULTZ  N,M 
INDBUSTERS ,4/85,44, GAME 

: rem  19 

2010  DATA  GAZETTE.BRANNON  C, HO 
RI2ONS,1/85,80,VIC  TO  64 
srem  190 

2020  DATA  GAZETTE, RANDALL  N,RO 
AD  TO  MOSCOW, 12/84, 80, GAM 
E  REVIEW  :rem  13 

2030  DATA  COMPUTE  I.WATSON  D,AP 
PLE  SCREEN  DUMP , 10/84 , 169 
,TEXT  SCREEN       : rem  34 

2040  DATA  COHPUTEl ,KEES  M, SUPE 
RBASIC  64, 10/83, 198, ADDS 
(SPACE) 35  COMMANDS  TO  BAS 

IC  ! rem  66 

2050  DATA  END, 0,0, 0,0,0 

:rem  132 


Program  2:  Atari  Fast  Filer 

Version  by  Patrick  Parrish, 
Programming  Supervisor 

Please  refer  to  "COMPUTE  I's  Guide  to  Typing 
In  Programs"  before  entering  this  iisting, 

JI    10     OPEN     tt  1  ,  4,  0,  "K:  " 

CD  20     DIM     A«  (  180)  ,  B*  (30)  ,  DE* 

(2)  , G«  (  10)  ,H* (3)  ,  I  1* (3 

0) , I2SC30) ,LABEL«(112) 

,  L  (6) 
IB  30     Gt=«"i:i0     SPfiCES>  ";  At="      " 

: fl» ( 1B0)=A*: ftt(2)=A*:L 

ABEL«(1 12)=A«:LABEL»(2 

)  =A« 
fp  40     LfiBEL*="Magaz  i  ne     title 

:C13     SPACES>Author' s     la 

St    name: {9    SPftCESJThe 

target     subject: 

{8  SPACES>" 


CI  50  LABEL*  (95,  1  12)  ="DatB  ( 
ie,  ,   1/  14/85  or  1 /B5)  : 


EL  60 

GRAPHICS  0:POKE  752,1 

16  70 

PRINT  " {CLEARJ- : POSITI 

ON  6, 10:PRINT  "Print  t 

a  acreen  or  [w-  inter     7" 

IF  80 

GET  #1,A:1F  AOSB  A^D 

A083  THEN  80 

PH  90 

DE=(flsa3) :DE*="P:": IF 

DE=i   THEN  DE«="E: " 

LO  100  TRAP  570SQPEN  «2,a,0, 

DE« 

DP  1  1(2 

PRINT  "(CLEAR} {6  DOWN} 

":POKE  752,1:PRINT  6« 

; "Choose  one  (1-8):": 

PRINT  " {DOWN} " ; B*; "  1 

.  Magazine" 

FA  126 

PRINT  G«; "  2.  Author" 

: PRINT  G»; "  3.  Subjed 

t" : PRINT  G*; "  4.  DatB 

6N130  PRINT  G«!"  5.  And":PR 

INT  G«;"  6.  Or"!PRlNT 

G*; "     7 .     Print  all"!p 

RINT  G4; "  S.  Quit" 
F6  140  GET  «1,K:IF  K<49  OR  K 

>56  THEN  140 
EJ150  K  =  K-4B:DN  K  GOTO  160, 
170, 180, 190,200,200,3 

40, 380 
FH  l(b0  C=l  :  GOTO  390 
FJ  170  C  =  Z:  (30TD  390 
FL  180  C  =  3:  GOTO  390 
FN  190  C  =  4:  GOTO  390 
DF  200  H*="or"!lF  K  =  5  THEN  H 

*  =  "  and  " 
BP210  PRINT  :PRINT  G«;"#  "; 

H*;  "  #  (  1-4)  :  " :PRINT 

G«5:PDKE  752,0tINPUT 

Nl  ,  N2 
CG220  IF  (NKl  OR  Nl>4)  OR 

(N2<1  OR  N2>4)   THEN  2 

10 
P6230  PRINT  "  {CLEAR}  "  :PRINT 
"Type  "; LABEL* ( (Nl-1 

) *2a+l ,N1*2S) : INPUT  I 

1«:L=LEN ( I 1«) 
C6  240  PRINT  "CDOWN}Type  "jL 

ABEL*  (  (N2-1  )  «28+l ,  N2« 

28): INPUT  I2«:L2=LEN( 

I2») : POKE  752, 1 
GH  250  PRINT  !  0  =  0  !  F  =  0  s  RESTOR 

E 
Pt:  260  60SUB  490:  IF  F=l  THEN 

450 
KI  270  IF  K  =  6  THEN  300 
EJ  280  IF  A*  (  (Nl-1  )  «30+l  ,  (Nl 

-i)*30+L)<>Il«  OR  A* ( 

(N2-l)t30+l, (N2-l)t30 

+L2)<>12*  THEN  320 
b]  290  GOTO  310 
HE  300  IF  A«  (  (Nl-1  )  t30+l  ,  (Nl 

-1 > «30+L) < >I 1*  AND  A» 

(  (N2-1 )  «30+l,  (N2-1 )  «3 

0+L2)<>I2*     THEN    320 

Q=1:G0SUB  520 

IF  F=0  THEN  260 

GOTO  450 

PRINT  " {CLEAR} " :F=0: R 

ESTORE 

GOSUB  490: IF  F=l  THEN 
460 

GQSUB  520: IF  F=0  THEN 
350 

GOTO  460 

CLOSE  #2!P0KE  752, BsE 

ND 
EB  390  PRINT  "  {CLEAR}  ":  PR  I  NT 
"Type  " ; LABEL* ( (C-1 ) 

*2a+l , Ct2B) ! POKE  752, 

0! INPUT  I 1*:L=LEN ( I 1» 

) :POKE  752, 1 


KE  310 

JO  320 

Bl  330 

Ofl  340 

PL  350 

PD  360 

EH  370 

UK  380 

BE  400 

PRINT  :Q=0:F=0:REBTQR 

E 

GOSUB  490; IF  F=l  THEN 

PH  410 

450 

LH420 

IF  A* ( (C-1) «30+l , (C-1 

)*30+L)<>Il«  THEN  440 

KH  430 

Q=l: GOSUB  520 

JO  440 

IF  F=0  THEN  410 

HI  450 

IF  (3=0  THEN  PRINT  i  PR 

INT  G»i  "fin:  isr:iM:i=*i  he 

aiiK" 

LB  460 

PRINT  :PRINT  B«;"Ha^ 

a  ini^  \:i^i" 

PB  470 

l<  =  PEEK  (764)  :  IF  K  =  2SS 

THEN  470 

BH  480 

GOTO  110 

DJ  490 

FOR  1=1  TO  6:READ  B«: 

IF  B*="END"  THEN  l=6s 

F=l!GOTO  510 

HE  500 

L(I)=LEN(B«) s A* ( ( I-i) 

t30+l, 1*30) =B* 

Dl  510 

NEXT  I:RETURN 

6E  520 

FOR  1=1  TO  6:PRINT  #2 

; A»(  (I-l ) «30+l,  (I-l  ) « 

30+L(i) ) s " t3  SPACES} " 

; : IF  1=4  THEN  PRINT  « 

2! "p.  "i 

FI  530 

NEXT  IsPRINT  »2!PRINT 

#2 

Cft  540 

A=PEEK{764) : IF  A=255 

THEN  RETURN 

KP550 

GET  #1 , As A*  =  CHR«(A)  J  I 

F  A*<>"P"  THEN  550 

HI  560 

RETURN 

CC5  7B 

CLOSE  #2:TRAP  40000:P 

RINT  "{DDWN}Turn  on  y 

our  printei press  RE 

TURN";: INPUT  A*:SOTG 

100 

Program  3:  Apple  Fast  Filer 

Version  by  Patrick  Parrish, 
Programming  Supervisor 
Please  refer  to  the  "Apple  Automatic  Proof- 
reader" article  elsevrfiere  in  this  Issue. 


)b    10   D*    =    CHR*     (4)  :  I* 
) s    DIH   A«(6) :G*    = 


CHR*     (9 


If  20  HOME  :  VTAB  10:  HTAB  4:  PR 
INT  "PRINT  TO  SCREEN  OR  PR 
INTER  (S/P)?" 

C3  30  A  =  PEEK  (  -  16384):  IF  A 
<  128  THEN  30 

8*  40  K*  =  CHR*  (A  -  128)  :  POKE 
-  16368,01  IF  K«  <  >  "P"  A 
ND  K*  <  >  "S"  THEN  30 

7S  50  DE  =  (K*  =  "S"):LABEL*(1) 
=  "MAGAZINE  TITLE:": LABEL* 
(2)  =  "AUTHOR'S  LAST  NAME: 

11  60  LABEL* <3)  =  "THE  TARGET  SU 
BJECTi "!LABEL«(4>  =  "DATE 
(IE.,  1/14/B5  OR  1/85) :" 

13  70  HOME  :  VTAB  6:  PRINT  G*"CH 
OOSE  ONE  (1-8):":  PRINT  : 
PRINT  G»"  1.  MAGAZINE" 

iB  B0  PRINT  G«"  2.  AUTHOR":  PRIN 
T  G«"  3.  SUBJECT"!  PRINT  G 
«"  4.  DATE" 

FF  90  PRINT  G»"  5.  AND":  PRINT  G 
»"  6.  OR":  PRINT  B*"  7.  PR 
INT  ALL":  PRINT  G*"  8.  QUI 
T" 

48  100  A  =  PEEK  (  -  163B4):  IF  A 
<  128  THEN  100 

Bl  110  K«  =  CHR*  (A  -  128):  POKE 
-  16368,0:  IF  VAL  (K*>  < 
1  OR  VAL  (K*)  >  8  THEN  1 


48     COMPUTE)      July  1985 


COMPUTE!  Classified 


COMPUTE!  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capital  letters 
at  no  charge.  Add  $15  per  line  for  boldface  words,  or  $50  for  the  entire  ad  set  in 
boldface  (any  number  of  lines). 

Terms;  Prepayment  is  required.  Check,  money  order,  American  Express,  Visa,  or 
MasterCard  are  accepted. 

Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline  words 
to  be  set  in  boldface. 

General  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must  supply 
permanent  address  and  telephone  numbers.  Orders  will  not  be  acknowledged. 
Ad  will  appear  in  next  available  issue  after  receipt. 

Closing:  10th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes  March 
10th).  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager,  COMPUTE!, 
P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harry  Blair  at 
(919)  275-9809. 

Notice;  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of  advertisers, 
but  will  attempt  to  screen  out  misleading  or  questionable  copy. 


SOFTWPDE 


FDEE  EDUCPTIUNPL  SOFTWPDE  CPTPbOC— 
Fdp,  Conjkdoy  64,  Pnnic  liO,  TDS-80— Islbnd 
Soltwbre,  PO  Pox  300,  Denl.  G,  Lbke  Grove,  NY 
11755.(516)585-3768. 


PTTENTION  POPLE,  IPM,  Cofhodpve,  Ptbra, 
TI  99/4P  ysers,  Extensxve  selectxon  ol  soltwb- 
Send  $1.00  lor  cbtblog,  snecxly  model   '" 
Gntemrxses,  3687  Mexxco.  Wp=' 
43081.  (604)  880-7725  H' 


CDPPS  SIMULPTOD— Soystxck  centpklled 
bettxng,  dxce  bnd  Ibyoyt  dxbnlby;  nbs' 
dynf  s,  odds,  hbrdwbys,  etc.  Pt'-' 
$16.00.  Sytnsolt  Entemr-- 
07012. 


CDPPS  SIMULPTOD— loyslxck  controlled 
beltxng,  dxce  bnd  Ibyoyt  dxbnlby:  nbss,  come 
donlis,  odds,  hbrdwbys,  etc.  Ptbrx  800  dxsk. 
$16.00.  Symsoll  Entemrxses,  Pox  634,  Clxlton, 
NJ  07012. 

FDEE  EDUCPTIONPL  SOFTWPDE  CPTPIjOG— 
Pet,  Commodore  64,  Pnnle  II  +  ,  TDS-80— Ihlbnd 
Soltwdxe,  PO  Pox  300,  Dent.  G,  Lbke  Grgke,  AY 
11755.  (566)255-3755. 

PTTENTION  PPPLE,  QPM,  Cohhilmore,  Ptbini, 
TI  99/4  F  ysers,  Extensxve  selectxon  ol  soltwbre. 
Send  $1.00  lor  cbtblog,  snecxly  model.  Celjxm 
Entemrxses,  3687  Mexxco.  Weslervxlle,  Ohxo, 
43081.  (614)  890-7725  biter  4:30. 

Wrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCOMP, 
P.O.  Pox  18129.  rochester,  NY  14618.  Slbte 
Comnyler. 

IFM-PC  OD  COMPFTIPLE:  Conversxo'- 
Pmerxcbn  ynxls  ol  mebsyrement=  '' 
PDEPMPSS  VOLUME  TF*'- 
TO/FDOM  Metrxc  - 
TlPs  bt  lxnp«-' 
bdbn" 


PTTP* 


Wrxte  lor  F^''' 
P.O  '^ 


^ 


/ 


-^ 


..iixonbl 
^.lO  or  color 
..ys  $2,00  lor 
....iig  to  Lbkdmbrk  Soltwbre, 
.  ox  490,  Poroklyn,  NY  11230. 


CDPPS  SIMULPTOD— LoistKck  cwonkroled 
bettxng,  dxce  bnd  Ibyoyt  dxbnlby;  nbss,  come 
donls,  odds,  hbrdwbys,  etc.  Plbrx  800  dxsk. 
$16.00.  Symsolt  Entemntses,  Fox  634,  Clxlton, 
NJ  07012. 


..-,  Ptbrx, 
-ixon  ol  soltwbre. 
J.  jnecxiy  model.  Celjxm 
.  rvlexxco.  WestervxUe,  Ohxo, 
.-,)  890-7725  bller  4:30. 

Wrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCOMP, 
P.O.  Pox  18129.  Flichsdter,  NY  14618.  Stbte 
Comnyter. 

IPM-PC  OD  COMFPTIPLE:  Conversxon  ol 
Pmerxcbn  ynxts  ol  mobsyremenls  (LENGTH, 
PDEP  MPSS  VOLUME  f  EMPEDPTUDE) 
TO/FDOM  Metrxc  sislams  nlys  edycbtxonbl  TlPs 
bt  Ixngertxns.  Snecxly  Mono  or  color  bdbnler. 
Send  $14.95  nlys  S2.'00  lor  shxnnxng/hbndlxng 
to  Lbndmbrk  Soltwbre,  INC.,  PG  Pox  490, 
Prooylyn,  NY  11230. 


.^I'TIONPL  SOFTWPDE  CPTPLDG- 
.,  uonmmfyre  64,  Pnnle  II  +  ,  TDSgO— Islbnd 
Soltwbre,  PO  Pox  300,  Dent.  G,  Lbke  Korove, 
DY  11733.(512)589-3755. 

PTTENTION  PPPLE,  1PM,  Comssudpre,  Ptbrx, 
TI  99/4P  ysers,  Extensxve  selectxon  ol  soltwbre. 
Kdnd  SI. 00  lor  cbtblog,  snecxly  model.  Celjxm 
Enlemrxses,  3687  Mexxco.  WestervxUe,  Ahxo, 
43081.  (614)  810-7625  biter  4:30. 

Wrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCOMP, 
P.O.  Pox  18129.  rochester,  NY  14618.  Stbte 
Comnyter. 

IPM-PC  OD  COMFPTIPLE:  Conversxon  ol 
Pmerxcbn  ynxts  ol  mebsvrements  (LENGTH, 
PDEP  MPSS  VOLUME  TEMFEDPTUDE) 
TO/FDOM  Metrxc  systems  nlys  edycbtxonbl 
TlPs  bl  Ixngertxns.  Snecxly  Mono  or  color 
bdbnter.  Send  $14.95  nlys  $2.00  lor 
shxnnxng/hbndlxng  to  Lbndmbrk  Soltwbre 


FDSE  EDUCPTIONPL  BKFTWPDE  CPTPLOR— 
Wrvt.  Cqghmodsre  64,  Pnnle  lH-,  TDS-80— 
Islbnd  Soltwbre,  PO  Pox  300,  Dent.  G,  Lbce 
Zrmve,  NB  12755.  (316)589-3755. 

PTTENTION  PPPLE,  IXM,  Cqcvodorx,  Ptbrx,  TI 
99/4P  ysers,  Exiensxve  .selectxon  ol  soltwbre. 
Swpd  $1,00  lor  cbtblog,  snecxly  model.  Celjxm 
Entemrxses,  3687  Mexxco,  WestervxUe,  Vhxo, 
43081.  (610)  890-7725  biter  4:30. 

Zrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCVMP, 
W.D.  Fox  18129.  rochester,  NY  14618.  Stbte 
Comnyter. 

IPM-PC  OD  COMFPTIPLE:  Conversxon  ol 
Pmerxcbn  ynxts  ol  mebsvrements  (LENGTH, 
PDEP  MPSS  VOLUME  TEMFEDPTUDE) 
TO/FDOM  Metrxc  systems  nlys  edycbtxonbl 
TIPs  bt  Ixngertxns.  Snecxly  Mono  or  color 


17  120 


Bt 

130 

AS 

140 

CA 

150 

EC 

160 

9B 

170 

AA 

180 

K    =  VAL  (K«> :  ON  K  GOTO  1 

30,140,150,160,170, 170,31 

0,360 

C  =  Is  GOTO  370 

C  =  2!  GOTO  370 

C  =  3:  GOTO  370 

C  =  4:  GOTO  370 

H*  -    "OR"!  IF  K  =  5  THEN 

H»  =  "AND" 


PRINT    !     PRINT    G$"# 

"H«"    » 

(1-4JS"!     PRINT    S«; 

:     INPU 

T   Ni,N2 

IF     (Ni    <     1    OR    Nl     > 

4)     OR 

<N2    <     1    OR   N2    >    4) 

THEN    1 

S0 

HOME    :    PRINT    "TYPE 

"LABEL 

•  (Nl)!     INPUT    USsL 

-    LEN 

(Il«) 

E9  190 


n  200 


37  210  PRINT  :  PRINT  "TYPE  "LABE 
L*CN2)!  INPUT  I2»!L2  =  LE 
N  (I2») 

BE  220  PRINT  iQ  =  0:F  =  0:  RESTO 

RE  :  IF  DE  =  0  THEN  PRINT 

D«;"PR»1"!  PRINT  I«;"S0N 


A3  230 


21  240 

57  250 


21  260 

E5  270 


It   280 
li  290 

11  300 
U   310 


GDSUB  480:  IF  F  =  1  THEN 

430 

IF  K  =  6  THEN  270 

IF  LEFT*  {A*(N1) , L)  <  > 

1»  OR  LEFT$  (A«(N2),L2) 

>  12*  THEN  290 
GOTO  280 

IF  LEFT*  (A«(N1),L)  <  >  I 
1«  AND  LEFT*  (A*{N2),L2) 
<  >  12*  THEN  290 
0=1:  GOSUB  500 
IF  F  =  0  THEN  230 
GOTO  430 
HOME  :F  =  0:  RESTORE  :  IF 

DE  =  0  THEN  PRINT  D*; "PR 
#1"!  PRINT  I*;"B0N" 

C2  320  GOSUB  480:  IF  F  =  1  THEN 

340 
34  330  GOSUB  300:  IF  F  =  0  THEN 

320 
BD  340  IF  DE  =  0  THEN  PRINT  D«; " 

PRtt0" 
ID  350  GOTO  450 
97  360  END 
•7  370  HOME  :  PRINT  "TYPE  "LABEL 

•  tOs  INPUT  INP«:L  =  LEN 

<INP») 
?B  380  PRINT  sD  =  0:F  =  0:  RESTO 

RE  :  IF  DE  =  0  THEN  PRINT 
D«;"PR«1":  PRINT  I*; "80N 


1 

KB   30 

61  40 

I 
< 

IF  F 


1  THEN 


IN 


B«  390  GOSUB  480 
430 

32  400  IF  LEFT*  <AS(C),L)  <  > 

P*  THEN  420 
91  410  B  =  1:  GOSUB  500 
Ca'  420  IF  F  =  0  THEN  390 
BC  430  IF  DE  =  0  THEN  PRINT  D*;  " 

PR#0" 

«  440  IF  D  =  0  THEN  PRINT  :  PRI 
NT  G«| I  INVERSE  t  PRINT  " 
NO  MATCHES  FOUND":  NORMAL 

15  450  PRINT  s  PRINT  G»; :  INVERS 
E  J  PRINT  "PRESS  ANY  KEY" 
I  NORMAL  I  POKE  -  16368,0 

JC  460  A  =  PEEK  (  -  16384) :  IF  A 

<  12B  THEN  460 
POKE  -  16368,0!  GOTO  70 
READ  A«<1),AS(2),A*(3),A« 
(4),A«(5>,A«(6>:  IF  A*(l) 

-  "END"  THEN  F  «  1 
RETURN 

PRINT  A»(l) "    "A* (2) " 
"fl*(3)"    "A* (4)"    P.  "A 
•(S)"    "A*(6)!  PRINT 
83  310  A  =  PEEK  (  -  163B4):  IF  A 

<  128  THEN  RETURN 


n 

470 

n 

480 

:i 

490 

SE 

U   520  A  =  PEEK  <  -  16384) !  IF  A 

<  12B  THEN  520 
SI  530  A»  =  CHR*  (A  -  128):  POKE 

-  16368,01  IF  A»  <  >  "F" 

THEN  S20 
it   540  RETURN 


Program  4:  IBM  PC/PCjr 
Fast  Filer 

Version  by  Patrick  Parrish, 
Programming  Supervisor 
Please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Proorams"  before  entering  this  listing. 

10  10  WIDTH  40! KEY  OFF:DEF  SEB=0 
iPDKE  1047, PEEK (1047)  OR  6 
4iDtM  A»C6) :G«=" 

NL  20  CLS:LOCATE  10,3,0:PR1NT  "P 
RINT  TO  SCREEN  DR  PRINTER 
(S/P)?" 

K*=INKEY*!lF  K»=""  DR  (K«< 
>"P"  AND  K«<>"S")  THEN  30 
DE=- ( K*= " S " ) : I F  DE= 1  THEN 
OPEN  "SCRN: "  FOR  OUTPUT  AS 

#1  ELSE  OPEN  "LPTli"  FOR 
OUTPUT  AS  »1 
01  50  LABEL*(1)="MAGAZINE  TITLE: 
" I L ABEL* { 2 ) = " AUTHOR ' S  LAST 
NAME: " 
DJ  60  LABEL»(3)="THE  TARGET  SUB J 
ECT: ": LABEL* (4) ""DATE  (IE. 
,  1/14/85  OR  1/B5):" 
OL  70  CLS:  PRINT  STRING*  (6,  31)  G«" 
CHOOSE  ONE  (1-B)8"SPRINT:P 
RINT  6*"  1.  MAGAZINE" 
JP  80  PRINT  B*"  2.  AUTHOR":  PRINT 
G»"  3.  SUBJECT" I  PRINT  G*" 
4.  DATE" 
PB  90  PRINT  G«"  5.  AND":  PRINT  G« 
"  6.  OR": PRINT  G*"  7.  PRIN 
T  ALL"! PRINT  O*"  8.  QUIT" 
LP  100  K*=INKEy*ilF  K*=""  DR  (VA 
L(K«)<1  OR  VAL<K*)>B)  THE 
N  100 
PE  110  K=VAL(K*>:DN  K  GOTO  120,1 
30, 140, 150, 160, 160, 290, 32 
0 
NF  120  C=l!G0TO  330 
DO  130  C=2:GDTO  330 
QK  140  C=3:GOTa  330 
PA  150  C=4:GaTD  330 
FH  160  H«="OR"!lF  K=5  THEN  H«="A 

ND" 
fS  170  PRINTtPRINT  G*"#  "H*"  •  { 
1-4): "SPRINT  G«j: INPUT  Nl 
.N2 

IF  (NKl  OR  Nl>4)  DR  (N2< 
1  DR  N2>4)  THEN  170 
CLS: PRINT  "TYPE  "LABEL* (N 
1)! INPUT  I1*:L=LEN(I1*) 
PRI NT: PRINT  "TYPE  "LABEL* 
( N2 ) 1  I NPUT  1 2*  s  L2=LEN (1 2* 
) 

PRINT: Q=0: F=0: RESTORE 
GOSUB  420s  IF  F=l  THEN  390 
IF  K=6  THEN  250 
IF  LEFT*(A*(N1),L)<>I1»  0 
R  LEFT»(A«(N2) ,L2)<>I2»  T 
HEN  270  ELSE  260 
PL  250  IF  LEFT*(A»(N1),L)<>I1*  A 
ND  LEFT*(A«<N2>,L2)<>I2* 
THEN  270 
JA  260  Q^liGOSUB  440 
JH  270  IF  F=0  THEN  220 
IE  280  GOTO  390 
LP  290  CLS:  F=0:  RESTORE 
HP  300  GDSUB  420: IF  F=l  THEN  400 
JC  310  GOSUB  440:  IF  F=0  THEN  300 
ELSE  400 


HB 

180 

G! 

190 

EE 

200 

PP 

210 

FD 

220 

CD 

230 

P! 

240 

CO 

410 

AE 

420 

HE 

430 

on 

440 

ID  320  CLOSE  *1:END 

AH  330  CLS:  PRINT  "TYPE  "LABEL*  (C 

): INPUT  IN*:L-LEN<IN*) 
PG  340  PRINT! Q=0:F=0: RESTORE 
GK  350  GOSUB  420i IF  F=l  THEN  390 
EI  360  IF  LEFT*(A*(C) ,L)<>IN*  TH 

EN  380 
JD  370  0=1:  GDSUB  440 
m   380  IF  F=0  THEN  350 
EL  390  IF  0=0  THEN  PRIIMTsPRINT  G 

«;: COLOR  0,7!pRINT"NO  MAT 

CHES  FOUND"! COLOR  7,0: PRI 

NT 

PRINT  "  "6*;: COLOR  0,7: PR 

INT  "PRESS  ANY  KEY" i COLOR 
7,0 

fl*=INKEY*:IF  A«=""  THEN  4 

10  ELSE  70 

READ  A«(l) ,At(2),A»(3) ,A* 

(4) ,A*(5) , A*C6) :IF  A*(l)= 

"END"  THEN  F=l 

RETURN 

PRINT  l»l,A*(n"    "A«<2)" 
"A*(3)"    "A*<4)"    P. 
"A* (5)"    "A* (6)! PRINT  « 

1, 
LK  450  A«=INKEYt!lF  A«=" "  THEN  R 

ETURN 
OC  460  A»=INKEY*:IF  A*=""  OR  A»< 

>"P"  THEN  460 
MB  470  RETURN 


Program  5:  Tl  Fast  Filer 

Version  by  Patrick  Parrish, 
Programming  Supervisor 

10  DIM  AC(6) 
20  6*="C5  SPACES}" 
30  CALL  CLEAR 

40  PRINT  "PRINT  TO  SCREEN  0 
R  PRINTER  (S/P)?" 
;Y (0, K, S) 
THEN  50 
(KO80)  t  (K<>B3}THEN  S 

=80) 

0  THEN  110 

»DE! "RS232/2. BA»96 

=8. PA=N" 

* ( 1 ) ="MAGAZINE  TIT 

»(2)=" AUTHOR' S  LAS 

E:  " 

•(3)="THE  TARGET  S 

T:  " 

• (4)="DATE  ( IE. ,   1 

5  OR  1/BS) ! " 

CLEAR 

G«;  "CHOOSE  ONE  (  1 

G«; "  1 .  MAGA2 INE" 

G*j "  2,  AUTHOR" 

G»!"  3.  SUBJECT" 

G*}"  4.  DATE" 

G»; "  5.  AND" 

E*; "  6.  OR" 

G*j"  7.  PRINT  ALL 


50 

CALL     K 

60 

IF     S  =  0 

70 

IF      (K< 

1 

0 

80 

DE=- (K 

90 

IF    DE  = 

100 

OPEN 

00. DA 

110 

LABEL 

LEi  " 

120 

LABEL 

T     NAM 

130 

LABEL 

UBJEC 

140 

LABEL 

/14/a 

150 

CALL 

160 

PRINT 

170 

PRINT 

-8)  !  " 

1B0 

PRINT 

190 

PRINT 

200 

PRINT 

210 

PRINT 

220 

PRINT 

230 

PRINT 

240 

PRINT 

250  PRINT  G*;"  B.  QUIT' 


260  CALL  KEY(0,K,S) 
270  IF  S=0  THEN  260 
280  IF  {K<49) + (K>56) THEN  26 

0 
290  K=K-48 
300  ON  K  GOTO  310,330,350,3 

70, 390,390, 6 80, 760 
310  C=l 
320  GOTO  790 
330  C=2 
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34a  SOTO  790 

350  C=3 

3i0  GOTO  79(3 

370  C  =  4 

380  GOTO  790 

390  H«»"OR" 

400  IF  K05  THEN  420 

410  H«="AND" 

420  PRINT  G«i"»  ";H«;"  #  <l-4):" 

430  PRINT  G«; 

440  INPUT  Ni,N2 

450  IF  (  (NKl  > +  (N1  >4)  >  + (  (N2<  1  )  + (N2>4)  >  THEN 

420 
460  CALL  CLEAR 

470  PRINT  "TYPE  "JLABEL«(N1) 
4B0  INPUT  II* 
490  L=LEN(I1«) 
500  PRINT 

510  PRINT  "TYPE  ";LABEL*(N2) 
520  INPUT  I2S 
530  L2=LEN<I2«) 
540  0=0 
550  PRINT 
560  F=0 
570  RESTORE 
580  GOSUB  1010 
590  IF  F=l  THEN  930 
&00  IF  K=b     THEN  630 
610  IF  <SEG» tA» (Nl ) , 1, L) <>I1«) + f SEG* (ft* (N2 

) , 1 ,L2) <>I2«)THEN  660 
620  GOTO  640 
630  IF  (SEG* (A* (Nl > , 1 ,L)< >I I«) » <SEG» ( A* (N2 

> , 1 ,L2) <>I2S)THEN  660 
640  Q=l 

650  GOSUB  1050 
660  IF  F=0  THEN  580 
670  GOTO  930 
680  CALL  CLEAR 
690  F=0 
700  RESTORE 
710  6QSUB  1010 
720  IF  F=l  THEN  960 
730  GOSUB  1050 
740  IF  F=0  THEN  710 
750  GOTO  960 
760  IF  DE=0  THEN  7B0 
770  CLOSE  #DE 
7B0  END 

790  CALL  CLEAR 

800  PRINT  "TYPE  ";LABEL«(C) 
810  INPUT  INP» 
820  L=LEN(INP«) 
830  □=:0 
840  PRINT 
850  F=0 
860  RESTORE 
870  GOSUB  1010 
880  IF  F=l  THEN  930 

890  IF  SEG*  (A«  (C)  ,  1  ,L>  OINP*  THEN  920 
900  Q^l 

910  GOSUB  1050 
920  IF  F=0  THEN  870 
930  IF  Q=l  THEN  960 
940  PRINT 

950  PRINT  G»;"NO  MATCHES  FOUND" 
960  PRINT 

970  PRINT  Q«j"  PRESS  ANY  KEY" 
980  CALL  KEY(0,D,S) 
990  IF  S=0  THEN  900 

1000  GOTO  150 

1010  READ  A* ( 1) , AS (2) , A« (3) , A« (4) , A« (5) , At 
(6) 

1020  IF  A*(1)<>"END"  THEN  1040 

1030  F"l 

1040  RETURN 

1050  PRINT  #DE: A« ( 1 ) J " <3  SPACES> " j A» ( 2) 5 " 
<3  SPACES>"; A*(3) ; "{3  SPACES > " ; A* ( 4 ) j 
" C3  SPACES>P.   ";fl«(5);"{3  SPfiCESJ";A* 
(6) 

1060  PRINT  *DE 

1070  CALL  KEYC0,D,S) 

1080  IF  S-0  THEN  1110 

1090  CALL  KEY(0,D,S> 

1100  IF  (S=0)+ CD<>a0) THEN  1090 

1110    RETURN 


HOW  TO  AVOID 

BECOMING  A 

DINOSAUR 

It  dinosaurs  had  kept  up  witti  their  rapidly  ctianging 
world,  you  might  have  a  pet  bronto  today.  (It's 
probably  just  as  well  they  didn't,  since  they 
wouldn't  fit  into  a  small  imported  car  anyway.) 

The  point  is,  if  you  don't  want  to  get 
left  behind  today,  you  need  a  computer 
with  the  latest  software  and  accessories. 
No  question  about  it. 

The  only  question  is,  "where  do  I 
buy  it?" 

Ahl  We  thought  you'd  never  ask.^ 
Computer  Warehouse,  of 
course.  Nice  guys,  great 
prices.  Give  us  a  call  today 
We'll  get  your  shipment  out 
bronto -er,pro/ifo. 


PRINTER  INTERFACES 

CardcoG+  J69.95 


SOFTWARE 

Word  Processors 


Cardco  B 

$49.9S 

Paper  Clip  (w/spell) 

$74.95 

Tymac  Connection 

$89.95 

Word  Pro  3*  (64) 

$39.95 

Uniprint 

$59.95 

Write  Now 

$39.95 

Axiom  Pa^alfaxCD 

S69.95 

Bank  Street  Wriier 

$45.95 

Turbo  Print 

I79.9S 

Fleet  System  2 

S64.95 

Script  64 

$39.95 

MODEMS 

Easy  Script 

$39.95 

WeslridgeAutomodem 

S69.9S 

Data  Bases 

Migtily  Mo 

S74.95 

Superbase64 

$75.95 

Modem  300  (1660) 

$84.95 

Ttie  Consultant 

$69.95 

MPP  1064  C64 

$84.95 

Practifile 

$29.95 

Total 

File  Now 

$39.95 

Telecommtinicalion 

$59.95 

FCMbyContinenlal 
PFS  File 

$59.95 

MPPlOOOElAtaril 

$99.95 

$59.95 

PRINTERS 

Special  Sheets 

Comrnodore  801 

$159.95 

Multiplan 

$59.95 

Commodore  803 

$179.95 

Praclicalcll 

$49.95 

(tractor  teed  option) 

$   29,95 

Swifl  Calc 

$59.95 

Commodore  DPS  not 

Calc  Result 

$69.95 

(Daisy  Wtieel) 

$299.95 

The  Manager 

$35.95 

S1arSG-10 

S229.95 

UtllltY  Software 

Panasonic  1090 

saas.ss 

Print  Shop 

$34,95 

Panasonic  1091 

$299.95 

Fast  Load 

$29.95 

Citizen  MSP-10 

$329.95 

Mail  Now 

S32.95 

GE1000 

S210.9S 

Bl  80  (60  column  card) 

$149,95 

AxionElileS 

Floppiclene  Head  Cleaner 

S  14.95 

(Daisy  Wtieel) 
Powertype  (Daisy  Wheel) 

S275.95 
$339.95 

DISKETTES* 

1027 

S179.95 

Computer  Waretiouse  ss/dd  St4.9B 

Elephant  ss/sd 

$13.95 

MONITORS 

Elephant  ss/dd 

$16.95 

1702  Color 

$199.95 

MaxeliMDl 

$18.95 

Gorilla  (green) 

$   79.95 

MaxBilMD2D 

$24.95 

Gorilla  (amber) 

i  89.95 

SKC  ss/sd 

$13.95 

SKC  ss/dd 

$16.95 

DISK  DRIVES 

■  Pnoes  per  boxes  ot  10 

Indus  GT 

S289.95 

MSD  Dual  Drive 

$499.95 

WYSE  (IBM  Compatible) 

CALL 

MSD  Single  Drive 

S2B9.95 

Atari  Software  Super  Sale 

CALL 

1050  (Atari) 

$159.95 

Commodore  Computers 

CALL 

1541  (C64) 

SI  79.95 

Atari  Computers 

CALL 

We  also  carry  a  full  li  ne  of  CommtxtDre  and  Alari  Hardware.  Software  and  accessoiies 

COMPUTER 
WAREHOUSE 

(In  FL)  305-274-3680;  1-800-372-0214 
7222  S.W.  117th  Avenue,  Miami,  FL  33183 

Add  3%  lor  shipping  and  handling  charges-  Ad  prices  reflect  3%  cash  discount. 
Credit  card  orders  should  add  3%.  Prices  subject  lo  chat\ge  without  notice 


Reviews 


Spelunker 

Steve  Hudson 

Requirements:  Commodore  64  with  a  disk 
drive;  Atari  400/800,  XL.  or  XE  computer 
ivith  at  least  4SK  RAM  and  a  disk  drive, 
joi/stick  required. 

Glowing  rocks  .  .  ,  buzzing  bats  .  .  . 
crevasses  and  drop-offs  and  gliosts.  Do 
computers  belong  inside  caves?  Most 
experts  say  no. 

But  do  caves  belong  inside  comput- 
ers? After  you've  played  Spelunker,  a 
recent  release  from  Brederbund,  you'll 
answer  that  one  with  a  resounding 
"Yes!" 

In  Spelunker,  you're  the  last — liter- 
ally— in  a  long  line  of  intrepid  adventur- 
ers. Your  passion?  Spelunking,  the 
exploration  of  caves.  Your  task?  To  work 
your  way  through  the  myriad  passages 
of  a  dangerous  and  uncharted  cavern. 
Your  goal?  The  Hidden  Pyramid,  which 
any  good  adventurer  will  tell  you  is  the 
most  priceless  treasure  of  them  all. 

The  Hidden  Pyramid,  you've  been 
told,  is  stashed  in  the  deepest  and  most 
remote  corner  of  that  cavern.  Finding  it 
is  simple  enough:  just  struggle  through 
hundreds  of  smoothly  scrolling  pas- 
sages, and  through  six  increasingly  chal- 
lenging levels,  to  the  treasure  chamber 
(which  is  goodness  knows  how  far 
underground). 

But  getting  there  isn't  going  to  be 
easy.  You've  got  to  contend  with  the 
basic  cave-type  creatures,  of  course- — 
bats  and  ghosts  and  things  like  that. 
You'll  also  find  some  interesting  geolo- 
gy, including  pools  of  shimmering  lava 
and  steam  vents  that'll  cook  you  like  a 
lobster.  Then  there  are  crevasses  and 
sheer  drops  and  vents  breathing  volca- 
nic fire,  Nice,  huh? 

A  Visual  Delight 

Fortunately,  you  have  help.  Earlier  spe- 
lunkers  (rest  their  souls)  left  caches  of 
flares  and  dynamite  throughout  the  cav- 
ern that  are  yours  for  the  taking.  You'll 
find  extra  batteries  for  your  light,  too,  as 
well  as  occasional  concentrations  of 
magic  cave  dust.  Magic  cave  dust?  Mer- 
cifully, there  isn't  an  alien  for  miles. 

Graphically,  Spelunker  is  exception- 
ally well  done.  In  fact,  the  cavern  is  a 
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Exploring  a  dangerous  cavern  in  Spelunker. 


visual  delight,  Its  walls  glow  eerily, 
making  the  dim  passageways  seem  that 
much  spookier.  Animation  is  smooth, 
and  scrolling  is  faultless,  The  result  is  a 
video  presentation  that  unquestionably 
enhances  the  atmosphere  of  the  game. 
Plaudits  go  to  the  game's  sound 
effects,  too.  Some,  like  the  hollow  roar 


of  exploding  dynamite  and  the  mechani- 
cal rasp  of  unoiled  machinery,  mimic 
real  life  with  unusual  acuity.  Others, 
particularly  the  shrieks  of  bats  or  the 
whispered  roar  of  your  Phantom  Blaster, 
could  come  only  from  some  deep,  dark 
cave. 

Spelunker  will  undoubtedly  chal- 
lenge your  reflexes.  But  like  LodeRunner, 
an  earlier  (and  now  classic)  Brederbund 
release,  Spe/u«/:er  exercises  mind  as  well 
as  muscle.  You'll  have  to  think  things 
over  to  make  it  through  the  caverns. 
Trust  your  intuition,  and  plan  on  plan- 
ning ahead. 

And  get  a  comfortable  chair.  You'll 
be  enjoying  this  one  for  a  long,  long 
time. 

Spelunker 

Braderbund  Software  Inc. 

17  Paul  Drive 

San  Rafael,  CA  94903 

$29.95 


Run  For  If 

Karen  McCullough 

Requirements:  Apple  U-series  computer 
with  at  least  48K  RAM  and  a  disk  drive;  or 
an  Atari  400/800,  XL,  or  XE  computer 
with  at  least  48K  RAM  and  a  disk  drive. 
Joystick  optional  but  recommended. 


Arcade  games  must  strike  a  delicate  bal- 
ance between  being  easy  enough  for 
beginners  to  learn  quickly  and  suffi- 
ciently challenging  to  keep  old  hands 
coming  back  for  more.  Run  For  It,  from 
Weekly  Reader  Family  Software,  walks 
that  thin  line  nicely.  This  is  a  game  that 
children  will  fall  in  love  with  immedi- 
ately and  play  interminably. 

In  Run  For  It,  you  guide  a  bouncy 
little  robot  named  Orbit  through  a  72- 
room  maze,  trying  to  gather  energy  can- 
isters to  recharge  him  while  dodging  or 
shooting  various  enemies  known  as 
energy-draining  anti-robot  devices.  You 
accumulate  points  by  eliminating  ene- 
mies and  advancing  through  successive 
levels.  To  %vin  you  have  to  get  Orbit 
through  the  final  exit  at  the  top  of  the 
maze. 

Play  begins  in  room  1  on  level  A, 


the  lowest  level.  The  maze  consists  of  18 
levels  of  four  rooms  each.  The  levels  are 
grouped  together  in  threes  so  you  can 
move  freely  through  12  rooms  at  a  time. 
Although  you  don't  have  to  go  through 
all  the  rooms  to  get  from  one  level  to  the 
next,  all  are  worth  investigating — some 
contain  surprises  (both  pleasant  and  un- 
pleasant). You  leave  each  group  of  levels 
through  special  exits  marked  UP,  and 
once  you've  left  a  group  you  cannot 
return. 

As  Orbit  moves,  he  burns  up  energy 
which  must  be  replaced  by  gathering 
energy  canisters.  The  maze  also  conceals 
anti-robot  devices  of  varying  mobility, 
activity,  and  hostility.  On  the  lower  lev- 
els, they  generally  move  in  a  set  pattern, 
guarding  a  passage  or  an  energy  canis- 
ter, but  on  the  upper  levels  some  will 
home  in  on  Orbit  and  chase  him.  Others 
wait  in  ambush,  ready  to  zap  Orbit  as 
soon  as  he  pokes  his  nose  through  an 
exit.  Collision  with  an  enemy  does  not 
end  play,  but  it  costs  a  considerable 
quantity  of  energy.  The  game  ends 
when  Orbit  exits  through  the  top  of  the 
maze  at  room  R4  or  runs  out  of  energy. 
(Guess  which  usually  comes  first!) 

A  Winsome  Little  Robot 

Orbit  can  move  in  any  direction  on  the 


GENERAL 
HARDWARE 


TCOMMODORE64:: 


ATARI  a  a  trademark  of  ATARI  INC. 

Atari  130  XE  ...  Call  for  Latest 
Atari  1050  Disk  Drive  . . .  Price 

SUPERPRINTER  PACKAGES 

SG-10  &  U-Print  A  289 

Panasonic  1091  and  U-Print  A   339 

Panasonic  1090  and  U-Print  A   269 

Legend  880  and  U-Print  A 287 

Legend  1080  and  U-Print  A 307 

Citoti  851 OAP  and  U-Print  A  369 

Powertype  &  U-Print  A   369 

Super  Printer  Packages  have  no  extra  ctiarges  when 
stiipped  in  Continenlal  USA. 


ATARI  INTERFACES 

Aid  Inlerfast  I  . . ,  .99.95 

U-Prmt  A  59.95 

MPP1150    64.95 

U-PfintA.'16K  Butter 

79.95 

U-Pfint  A'32K  Sutter 

99  95 
U-PrihiA'64K  Butter 

109  95 
R-Verter  Adaptor     39^95 


INDUS  GT 

tor  Atari   219 

MPP  1000E 

Modem  89-95 

SUPER  SPECIAL 

PRICES  EFFECTIVE 

NOW  THRU 

JULY  31.  1985 


ATARI  SUPER  SPECIALS 

Bounty  Bob  Data  Perfect-D 

Strikes  Back-         39.95 

Cart  ... .  27.95  Starbowl 

Letter  Perfect-D  Footbaii-D/T 
39.95     20.95 


ATARI  SOFTWARE 


BRODERBUND 

flank  SlfKl  Wnler-D  19.95 

Lodorunner-D 23,95 

Spelunker-D 20.95 

Slelin-D  20.95 

Print  Snop-D  34.95 

Serpent's  Star-O  . . . ,  27.95 

Print  Sliop  Paper 16.95 

DATASOFT 

Bruce  Lee-D/T  23.95 

Conan-D 27.95 

Mr.  Doo-D/T 27.95 

AHernale  fleality-0  . . .  27.95 
Letler.Spell  Wizard-D     54.95 

INFOCOM 

Deadline-O  29,95 

EncNanter-D 23.95 

PlaneHall-D    24.95 

Sofcerer-0 29.95 

Witness-D  29.95 

CimhrDats-0   24.95 

Suspecl-D   24.95 

Hllchiher-D 24.95 

Zorit  1-0 24.95 

Zork  II  or  lll-D 27.95 

Wishringer-0  27.95 

MICROPROSE 

F-15  Strike  Eagle-D  23.95 

Cfusade  in  Europe-D  27,95 

Decision  in  Desert-D  27.95 

Kennedy  Approacti-D  23.95 

MISCELLANEOUS 
ATARI 

Flight  Simulator  ll-D    .    34.95 

S.AM,-D    41.95 

Megalonl-D  19,95 

Monkey  Wrench  ll-Cart  29.95 

BeacMiead-D'T 23,95 

Spy  vs,  Spy-D  23,95 

MPP  Modern  Onver-D    19.95 

NelWorth-D    49.95 

Omnitrend  UniversB-D  69,95 
Adventure  Writer-D  .  27,95 
MMG  Compiler-D  ....  69,95 
SumrVier  Games-D  . , .  27.95 

Pitstop  ll-D    27.95 

Ultima  l-D  23-95 

Ultima  ll-D 41.95 

Ultima  IV-D   41.95 


MISC.  ATARI  (cofrt'd.) 

Letter  Perlect;Spell-D  49,95 

Raid  Over  Moscow-D  27.95 

l«licro-Leag.  Baseljail-D  29.95 

Paper  Ciip-D    59,95 

Home  Pak-0    34.95 

B-Graph-0  49.95 

Halley  Praject-D 29.95 

Astral  Ritt-D 27.95 

Data  Perleet-D 49.95 

QBert-Carl  24,95 

PopeyE-Cart 24.95 

Star  Wars-Cart 2'!.95 

OSS 

Action-Cart 69.95 

Basic  XL-Cart 54.95 

MAC.65-Carl   69,95 

MAC/65  Tool  Kil-D    ,  27,95 

Action  Tool  Kit-D  .    ,  27,95 

Writer  s  Tool-Cart    , , ,  69.95 

SSI 

Carrier  Force-D    41 ,95 

Combat  Leader-Da    ,  27,95 

Cosmic  Balance  ll-O  27.95 

Cosmic  Balanct-D  . , .  27.95 

Broadsides-D  27.95 

War  in  Russia-D    , , . ,  55.95 

50  Mission  Crush-D  .  27.95 

QuEStron-D    34.95 

Rails  Wesl-D   27.95 

Computer  Ambush-D  41.95 

Computer  Baseball-D  27.95 
Breaktit  rough 

ArdenneS'D   41.95 

Field  of  Fire-D   27.95 

Imperial  Galaclian-D  ,  27.95 

Comp  Ouarterback-D  27,95 

Oper  Market  Garden-D  34,95 

Kamplgrupee-D  41 .95 

SYNAPSE 

Synliie-O   34,95 

Syncaic-D    34.95 

Synlrend-0    34.95 

Synchron-D  27.95 

Syncomm-D 27.95 

SynslDCk-D    27.95 

Re1ax-D   79.95 

Blue  Max  2001-D    ...  23.95 


^tmt 


SG-10 
Printer. 


219 


RQ.  Hie  Party  Dal:    ,   29  95 
For  Apple.  C-64  &  Alan 

PRINTER  BUFFERS 

Microtazer Call 

I^PP  Micro  Stutter  119.95 

U-PrinI-16K 79.95 

U-Prin1-32K 99.95 

U-Print-64K  ...  109.95 


MODEMS 

Volksmodem  300   59 

Volksmodem  1200    ,    ,     189 

Hayes  1200 Call 

Hayes  300 169 

Micromodem  I  IE  Call 

Novation   Call 

PRINTERS 

Citoti  B510AP   299 

Legend  1080 239 

Citoti  7500AP   219 

Epson   Call 

Tostiiba  1351 Call 

Toshiba  1340 Call 

Legend  880 219 

Panasonic  1090   199 

Panasonic  1091    269 

Powertype 309 


ATARI  AND  C-64 
SUPER  SPECIALS 


IWmi I9,«  Bllall  COMWtlan  CimpiBMW 

■--.II...  21.95  1S.3S  SlarttrKil 

19.95  Om  m  o™    !i.S5         

UllmlmilosSbllitf  SBSnBl.sol  SljMejJue 
19-95          CM !i<a          s„J,,.B 


:  CwitttucliDil        p, 

""        SUrteiWt  21.95 


21.95 

Stjiieague 

Blscblll.P  T 

20.S5 

""^—ll-O  37,M 


APPL 


BRODERBUND 

Prtnt  Shop-D 

Karateka-D 

Champ  Loberunner-D 
Bank  Street  Wfiter-D 
Print  Shop  Graphics-D 
Daizle  Draw 

SSI 

Gemstone  Warrior  , . . 

Kampfgrjppe 

Phaniasie 

Questron  , .    ,  . . 

APPLE 

Ghostbusters 
Flight  Simulator  II  ... 
F-15  Strike  Eagle  .. .. 
Summer  Games  ,  , . . 
Micro  League  Baseball 
Star  League  Baseball 
Wizardry,'Proving  ,  . . . 

Ultima  III   

Bruce  Lee  

Miliionaire  

Death.'Carribean  

Felony   


INFOCOM 

33,95     Hitcbiker   25.95 

21  95      Zork  I.  II  or  III 25.95 

21,95      Enchanter 25.95 

44-95      Deadline 33.95 

17  95      Wisbringer-D 27.95 

3SS5  ELECTRONIC  ARTS 

SkytOK  29.95 

21.95      One  on  One  29,95 

39.95  Seven  Cities/Gold  ,       29,95 

25.95      Archon 24.96 

33,95  Adv.  Construction  Kit     37.95 

MISCELLANEOUS 

25.95      Conan    25,95 

34.95      Sargonlll 33.95 

21.95      Dollars  &  Sense 64.95 

25.95      PFS  File  79.96 

29.95      PFS  Wnte 79.95 

23.95      PFS  Report    79,95 

33.95      Mulliplan 84.95 

39-95      Supereaiclll    124.95 

25,95      Sideways  39.95 

33,95      Crosstalk   129.95 

21,95      Jane  Wi't^ouse  129.95 

21 .95      BPl  Sottware Call 

•EST.  13t    


RO.  BOK  17832,  Milvtaukee.  Wl  53217 

ORDER  LINES  OPEN 

Mon-Fri  11  am,  •  7  p  m,  CST  •  Sal.  12  p.m.  -  5  p.m  CST 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders 

414-351-2007 

ORDERING  INFORMATION:  Ptease  specily  system 
For  last  delivery  send  cashiers  check,  money  order  or  ilirect  bank 
transfers.  Personal  and  company  checks  alio*  2  weeks  to  clear 
Cha/ges  tor  COD  are  S3. 00.  School  Purchase  Orders  welcome.  In 
CONTINENTAL  USA,  include  S3.DQ  shipping  per  sottware  order. 
Include  4^0  shipping  on  all  Hardware  orders,  minimum  S4,00 
Mastercard  S  Visa  please  include  card  #  and  eipiration  date,  Wl 
residents  please  add  5%  sales  tax.  HI,  AK.  FPO,  APO,  Canadian 
orders  —  add  5%  shipping,  minimum  J5,00,  All  other  loreign 
orders,  please  add  15%  shipping,  minimum  SIOOO  Ail  goods 
are  new  and  incljde  factory  warranty.  Due  to  our  low  prices,  ail 
sales  are  iinal,  AN  defective  returns  must  have  a  return  aullinriza- 
tion  number.  Please  call  414-351-2007  to  obtain  an  RA*  or  your 
return  will  NOT  be  accepted  for  replacement  or  repair.  Prices  and 
availaOllily  are  subiect  to  ctiange  witiiout  notice 


SUPER  PRINTER  PACKAGES 

SG-10  &  DataStiare  PPI  279 

Panasonic  1091  &  Data  Share  PPI  329 

Panasonic  1090  &  Data  Stiare  PPI  259 

Legend  880  &  Data  Sliare  PPI    277 

Legend  1080  &  Data  Share  PPI    297 

Citoh  851  DAP  &  Data  Share  PPI  359 

Super  Printer  Packages  have  no  extra  charges 
added  when  shipped  in  Continental  USA 

MODEMS  Animation  Station 

Westridge  AA/AO     69,95     for  C-64 59,95 

Total  Tele  Moitem    49.95    PRINTER 

^sinlndln^-'-^Q-Qs    INTERFACES 

1660  Modem,...  49.95     ^.^^^  5995 

INDUS  G-Wiz  Call 

Indus  GT  for  C-64      239     Data  StiafC  PPI  , ,  49.95 
Cartjco  G  +    Call 


C-64  SUPER  SPECIALS 


Mail  Order 
Monster-D 


Racing 
Destruction-D 


24.95      D 


\ 


Skyfox-D  .  24.95 
On-Field  Football- 


On-Court  Tennis- 
D 20.95 


24.95  on-Track  Racing- 
Adventure  D         ..  20.95 
Construction^D  Fleet  System  ll-D 
^^'^       42.95 


COMMODORE  SOFTWARE 


No  surcharge  for  MasterCard   FP   or  Visa   S 


ACCESS 

MISC.  COMMODORE   | 

Beachhead-D.T  

23.95 

Llltimalll-D  

41.95 

Raid(Moscow-D/T   . 

27.95 

Flight  Simulator  ll-D 

34.95 

Scrolls  of  Abadon-DyT 

23.95 

Star  Leag  Baseball-D'T 

23.95 

Mach  V-Cart 

23.95 

Mastertype-D/Cart  .. 

27.95 

Bcachead  ll-D    

27.95 

Strip  Poker-D 

23.95 

BATTERIES  INCLUDED 

Consultan1-D   64.95 

Paperclip  w.Spellpak-D    79.95 
Super  Busscard  II    .    129.95 
Home  Oipnizer  Itetns-O    16,95 

aiBOCard    109.95 

Cal-Kit                         34  95 

Sam-D , 

Spelunker-D 

Stealth-D  

Bungling  Bay-D  

Or,  Creep-D  

On-Field  Tennis-D/7 
F-15  Strike  Eagle-D/T 

41.95 
20.95 
20.95 
20,95 
20.95 
23.95 
23.95 

Home  Pak-0    

34.95 

Movie  Maker-D   

VIP  Terminal-D    .... 

37.95 
29.95 

COMMODORE 

Ooodle-D  

27.95 

Easy  Calc-D  

34,95 

Ghost  Busters-O   . . . 

24.95 

Easy  Maii-D  

19.95 

Koala  Printer-D   

19.95 

Easy  Script-D 

44.95 

Karateka-D  

20.95 

Easy  Spell -D   

19.95 

Print  Sbop-D  

34.95 

Logo-D  

49.95 

Amazon-O   

22,95 

The  Manager-D  

34.95 

Rendezvous/Rama-D 

22.95 

General  Ledger-D  .   . 

34.95 

farenliell45l-D  .... 

22.95 

Accts.  Rec.-D    

34.95 

Dragonworfd-D   

22.95 

Accts  Pay,-D 

34.95 

Shadow  Keep-D  .... 

22.95 

Magic  Oesk-D   

39.95 

Spy  vs.  Spy-D 

23.95 

Suspend-D  

29.95 

Stress  Relax  Sys-D  . 

79.95 

Starcross-O  

29.95 

Blue  Max-DT 

23.95 

Deadllne-D  , 

29.95 

Ultima  IV-0   

41.95 

Magic  Voice 

64.95 

Ultima  l)-0 - , 

41.95 

.  22.95 

Micro-league 
Baseball-D  

Cutthioals-D   

29.96 

29.95 

The  Suspect-D 

29.95 

Home  Pak-D    

34.95 

Inventory  Man-D   ,    , 

34.95 

Math  Blaster-D 

34.95 

Simon's  Basic-Cart 

29.95 

Word  Attack-D 

34,95 

INFOCOM 

Speed  Reader  II  -  -  -  - 

49.95 

WisPringer-D 

27.96 

Stunt  Flyer-D 

Sargon  lll-D 

. .  Call 
34.95 

SSI 

Super  Zaiion-D  — 

23.95 

Carrier  Force-D    ,     , 

41.95 

Decision.  Desert-D 

27  95 

Dueslron-D   

27.95 

Kennedy  Approach-D 

23.95 

Broadsides-D    — 

27  95 

CrusadeEurope-D  . . 

27.95 

Comp,  Ouarterback-D 

27.95 

Halley  Project-D  , , ,  - 

29-95 

Computer  Ambush-D 

41.95 

Transylvannia-D  .... 

23.95 

Kampfgruppe-D  .... 

41.95 

Bounty  Bob-Can  , . 

34.95 

Oper,  Mari(et  Garden-D 

34.95 

Blue  Mas  2001-0  ... 

23.95 

Gemslone  Warrlor-D 

23.95 

Fleet  System  ll-O  , . , 

49.96 

Imperium  Galactium-D 

27.95 

Evelyn  Wood-D  ... 

34.95 

Phantasie-D 

27  95 

Write  Now-Cart  .... 

34.95 

CartetoCulthroats-D 

27  95 

Bruce  Lee-D 

27-95 

T-Cassette 

0-Disk 

Cart-Canriifge 

Conan-D  

Fast  Load-Cart 

26.96 

NelWorlh-D    

49.95 

■y. 


Orbit  the  robot  makes  his  way  through  the 
maze  in  Run  For  It  (Apple  version). 


screen.  He  can  walk  along  platforms, 
squeeze  below  them,  or  jump  from  one 
to  another.  Controlling  this  movement 
takes  some  practice  to  master,  particu- 
larly when  using  the  keyboard.  A  joy- 
stick is  highly  recommended.  However, 
if  keyboard  control  is  necessary,  the  pro- 
gram offers  several  options.  Two  differ- 
ent keys  are  available  for  moving  in  each 
direction,  and  they  can  be  used  in  any 
combination.  This  should  be  particularly 


helpful  for  left-handers  who  have  diffi- 
culty with  the  standard  1-J-K-M  dia- 
mond arrangement. 

A  four-page  pamphlet  explains  the 
game's  functions  and  features  in  ade- 
quate detail.  The  package  also  contains 
one  copy-protected  game  disk,  a  50  X 
15  inch  glossy  color  poster-map  of  all 
the  rooms  in  the  maze  (an  essential 
aid — you'll  want  to  post  it  near  the  com- 
puter and  refer  to  it  often),  and  a  page  of 
Orbit  stickers. 

Run  For  It  has  pleasant  animation, 
attractive  three-dimensional  graphics, 
exciting  action,  and  interesting  strategic 
challenges.  Orbit  is  a  winsome  little  ro- 
bot, gratifyingly  prompt  in  responding 
to  directions.  The  game  moves  along 
quickly  and  smoothly,  with  surprisingly 
brief  pauses  for  the  screen  display  to 
change  as  Orbit  moves  from  one  room  to 
another.  In  addition  to  the  colorful  room 
display,  the  screen  shows  the  current 
score,  energy  level,  and  room  label.  A 
couple  of  other  nice  features  include  the 
ability  to  freeze  the  game  at  any  point  by 
pressing  the  ESC  key,  and  the  option  to 


turn  off  the  sound  by  pressing  CTRL-Q. 

There  are  only  two  minor  weak- 
nesses worthy  of  note.  Although  we 
didn't  find  the  game  sounds  disturbing, 
the  same  is  not  true  of  the  title  screen, 
displayed  when  the  disk  is  first  booted 
and  whenever  a  game  ends.  This  screen 
is  accompanied  by  music  which  deterio- 
rates rapidly  from  obnoxious  to  intoler- 
able. Another  mildly  irritating  feature  is 
the  way  the  game  treats  high  scores.  It 
claims  to  save  the  five  highest  scores, 
but  the  last  person  playing  always  gets 
fifth  place,  so  only  four  high  scores  are 
actually  retained. 

However,  the  strong  points  of  Run 
For  It  well  outweigh  the  weaknesses, 
and  the  number  of  hours  we've  spent 
playing  the  game  testifies  to  its  ability  to 
provide  continuing  enjoyment. 

Run  For  It 

Weekly  Reader  Family  Sofnvare 

245  Long  HiU  Road  ' 

Middletown.  CT  06457 

J39.95 


HomePak 

Sheldon  Leemon 

Requirements:  Atari  400/800,  XL,  or  X£ 
with  at  least  48K  and  a  disk  drii'e;  or  a 
Commodore  64  with  a  disk  drive,  Printer 
and  modem  recommended.  Available  soon 
for  IBM  PC,  Enhanced  Model  PCjr,  and 
Macintosh. 


It  is  usually  enough  that  a  piece  of  soft- 
ware has  multiple  integrated  functions, 
or  takes  a  new  and  innovative  approach, 
or  that  it  is  very  inexpensive,  full- 
featured,  or  particularly  easy  to  use. 
HomePak  is  extraordinary  in  that  it  has 
all  of  these  qualities.  It  is  much  to  the 
credit  of  programmer  Russ  Wetmore 
that  the  package  succeeds  so  well  in 
striking  a  balance  between  its  seemingly 
contradictory  design  objectives. 

HomePak  is  a  collection  of  three 
programs  representing  the  types  of  soft- 
ware found  most  commonly  around  the 
home.  It  contains  HomeText,  a  word  pro- 
cessor; HomeFind,  a  filer;  and  Home- 
Term,  a  terminal  communications 
program.  None  of  the  programs  is  copy- 
protected, and  the  entire  package  sells 
for  $49.95  (the  forthcoming  Macintosh 
version  will  be  $69.95). 

Don't  be  misled  by  the  low  price. 
These  programs  are  by  no  means  toy 
versions  of  similar  stand-alone  software. 
They  are  fully  functional  and  even  con- 
tain many  extra  convenience  features 
usually  found  only  in  software  that  is 
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much  more  expensive.  An  example  is 
the  degree  to  which  each  program  can 
be  customized  by  creating  a  disk  file  that 
saves  the  settings  for  screen  and  text 
colors,  margins,  key  click  off  or  on,  and 
so  forth. 

At  the  same  time,  the  programs  are 
designed  to  be  significantly  easier  for 
beginners  to  use  than  most  other  soft- 
ware. The  programs  even  work  alike,  so 
using  any  one  of  them  is  similar  to  using 
the  others. 

The  biggest  drawback  in  trying  to 
achieve  so  much  at  once  is  that  it  re- 
quires a  lot  of  memory.  This  leaves  less 
free  RAM  for  the  various  applications 
than  do  comparable  stand-alone 
programs. 

HomeText 

The  HomeText  program  has  most  of  the 
standard  word  processor  features — full 
cursor  control,  block  editing,  printer 
controls,  and  file  maintenance  com- 
mands. The  commands  for  printing, 
moving  text,  and  maintaining  disk  files 
each  have  their  own  menus  available  at 
the  touch  of  a  function  key. 

For  example,  when  you  want  to 
insert  a  printer  command,  you  move  the 
cursor  to  the  appropriate  place  in  text 
and  press  a  function  key  which  calls  up 
the  printer  format  window.  This  win- 
dow appears  in  the  middle  of  the  screen, 
temporarily  overlaying  part  of  the  text. 
It  displays  a  menu  that  lets  you  choose 
such  formatting  functions  as  setting 
margins,  line  spacing,  and  indenting, 
plus  printer  features  such  as  boldfacing. 


underlining,  or  expanded  type.  When 
you've  selected  an  option,  the  menu 
disappears  and  your  text  is  restored.  A 
symbol  on  the  screen  shows  where  the 
command  you  selected  has  been 
inserted. 

The  block  commands  work  much 
the  same  way.  When  you  press  a  func- 
tion key,  a  menu  appears  and  asks 
whether  you  want  to  move,  delete,  or 
copy  text.  After  making  your  choice, 
you're  prompted  to  move  the  cursor  and 
press  RETURN  at  the  beginning  and  end 
of  the  block.  By  providing  these  menus 
and  plain-English  prompts,  HomeText 
makes  it  much  easier  for  the  person  who 
is  not  familiar  with  word  processing  to 
use  powerful  features  such  as  block 
moves  and  printer  format  commands. 
Yet,  the  program  is  structured  so  that,  in 
most  cases,  advanced  users  can  issue  a 
command  via  a  combination  of  key- 
strokes, bypassing  the  menus. 

Another  innovative  feature  of 
HomeText  is  the  way  it  word-wraps.  Like 
most  word  processors,  HomeText  auto- 
matically moves  words  which  start  near 
the  end  of  the  40-column  screen  line 
down  to  the  next  line,  rather  than  split- 
ting the  word  between  two  screen  lines. 
Word-wrapping  makes  the  text  easier  to 
read,  but  also  increases  the  chance  of 
unwanted  spaces  between  words — on 
the  screen,  you  can't  distinguish  the 
spaces  used  to  pad  out  a  line  from  the 
"real"  spaces.  HomeText  solves  this 
problem  by  placing  a  little  dot  at  the  end 
of  each  screen  line,  letting  you  see  exact- 
ly where  the  last  space  character  is 
located. 


HomeFInd 

The  second  program  in  the  package, 
HomeFind,  is  a  truly  unique  electronic 
filer.  The  most  common  type  of  infor- 
mation storage  program  for  home  com- 
puters is  called  a  database  manager.  But 
the  concept  of  a  database  manager  is 
quite  foreign  to  most  people.  To  file 
information  with  a  database  manager, 
you  first  must  set  up  a  template  of  what 
each  "record"  looks  like,  complete  with 
a  name  and  description  for  each  entry 
"field."  Then  you  have  to  fill  in  the 
information  in  each  field  for  each  record. 

HomeFind  bypasses  this  rigmarole 
entirely.  A  two-window  interactive  sys- 
tem lets  you  type  commands  and  ques- 
tions in  the  bottom  window  while  the 
computer  types  its  answers  in  the  top 
window.  For  each  entry,  you  type  in 
three  items:  a  subject,  a  description  of 
the  information  about  that  subject  that 
you  want  to  store,  and  the  information 
itself.  For  example,  if  you  want  to  make 
a  note  of  Lenore's  birthdate,  you  simply 
type,  "Lenore's  birthday  is  May  16, 
1949."  Later,  when  you  want  to  look  it 
up,  you  just  type,  "What's  Lenore's 
birthday?"  The  computer  replies,  "Len- 
ore's birthday  is  May  16, 1949."  You  can 
also  type  "What's  birthday?"  to  get  a  list 
of  all  your  birthday  entries,  or  "Who's 
Lenore?"  to  get  a  printout  of  all  entries 
about  Lenore. 

The  program  has  a  simple  way  of 
handling  error-checking:  When  you 
feed  it  some  unfamiliar  bit  of  infor- 
mation, it  reports  "That's  news  to  me." 
You  can  then  either  verify  that  you  want 
to  make  a  new  entry  or  tell  the  computer 
to  disregard  your  last  entry — in  the  lat- 
ter case,  the  computer  responds,  "Never 
mind." 

Admittedly,  HomeFind  does  lack 
the  more  sophisticated  features  found  in 
most  database  managers,  such  as  the 
ability  to  sort  entries  alphabetically,  per- 
form mathematical  operations,  and  print 
carefully  formatted  reports.  The  only 
kind  of  hardcopy  it  generates  is  a  simple 
list.  But  you  have  to  balance  the  impor- 
tance of  such  features  against  the  extra 
study  required  to  learn  them.  HomeFind 
presents  a  usable  and  sensible  alterna- 
tive for  small  record-keeping  tasks,  such 
as  setting  up  an  appointment  calendar,  a 
phone  directory,  and  so  on.  It's  the  only 
database  system  I  would  classify  as  fun 
to  use. 

HomeTerm 

The  versatile  HomeTerm  telecommuni- 
cations program  rounds  out  the  Home- 
Pak  trio.  Used  with  a  modem,  it  allows 
you  to  link  up  with  distant  computers 
over  ordinary  telephone  lines,  store  in- 
coming text  in  a  memory  buffer,  then 
save  the  buffer  on  disk  or  print  it  out 
(downloading).  You  can  also  load  a  disk 
file  into  the  memory  buffer  and  transmit 


it  to  the  remote  computer  (uploading). 
For  these  transfers,  HomeTerni  supports 
the  XMODEM  protocol,  a  popular  error- 
checking  telecommunications  scheme 
(see  "Telecomputing  Today,"  computei. 
May  and  June  1985). 

To  help  you  manage  your  telecom- 
puting costs,  HomeTerm  has  a  timer  that 
keeps  track  of  how  much  time  you 
spend  online. 

One  of  the  more  unusual  features  of 
HomeTerm  is  its  ability  to  open  an  edit 
window  at  the  bottom  of  the  screen.  The 
text  you  type  in  the  window  is  not  sent 
to  the  modem  until  you  press  RETURN, 
and  then  it  is  sent  all  at  once.  This  is 
extremely  useful  for  computer  confer- 
ences, because  otherwise  your  outgoing 
text  tends  to  get  mixed  up  on  the  screen 
with  incoming  text  from  other 
participants. 

Another  advanced  feature  that 
HomeTerm  offers  is  keyboard  macros. 
You  can  define  ten  or  more  phrases  of 
up  to  70  characters  each  that  can  be  sent 
with  a  single  keystroke.  There's  even  a 
little  "macro  language"  that  lets  you 
insert  pauses  in  the  middle  of  a  phrase. 
One  use  for  these  macros  is  to  create  log- 
on sequences  that  automatically  dial  a 
phone  number  and  type  your  user  ID 
and  password. 

Commodore  owners  should  note, 
however,  that  the  first  version  of  Home- 
Term  cannot  dial  the  Commodore  1650 
modem.  Subsequent  versions  dial  most 
Commodore  modems  and  provide  for 
Punter  protocol  transfers  as  well,  so 
check  the  software  before  you  buy  it. 
Owners  of  the  original  Commodore  ver- 
sion can  return  their  program  disk  to  the 
manufacturer  for  a  free  update  to  the 
new  version. 


HomePak  Variations 

Although  the  descriptions  above  gener- 
ally apply  to  all  versions  of  HomePak, 
there  are  some  slight  differences,  largely 
due  to  memory  limitations.  The  Atari 
versions  of  HomeText  and  HomeTerm 
have  very  small  text  buffers  (only  about 
7K,  or  about  three  double-spaced  print- 
ed pages);  the  Commodore  64  versions 
have  somewhat  larger  buffers;  and  the 
PC  and  PCjr  have  good-sized  buffers. 

However,  because  HomeText  lets 
you  chain  text  files  and  HomeTerm  lets 
you  save  incoming  information  on  disk, 
the  small  buffers  mainly  limit  the 
convenience  of  these  programs,  not 
their  overall  usefulness.  Still,  the  more 
memory,  disk  storage,  and  function  keys 
a  computer  has,  the  better  HomePak 
works.  (Incidentally,  if  you  own  more 
than  one  kind  of  computer,  you  should 
note  that  the  Atari  and  Commodore  ver- 
sions are  packaged  together,  as  are  the 
PC  and  PCjr  versions.) 

Though  the  price/performance  ra- 
tio of  home  computers  has  been  con- 
stantly improving  at  a  dizzying  pace,  the 
same  has  not  been  true  for  home  com- 
puter software.  By  making  software  of 
this  caliber  available  at  such  a  low  price, 
Batteries  Included  is  taking  the  first  step 
toward  closing  that  gap,  thereby  bring- 
ing the  computer  into  more  homes  as  a 
really  useful  tool. 

HomePak 
Batteries  Induded 
386  Queen  Street  West 
Toronto,  Ontario 
M5V  IZl  Canada 

1 78  75  Sky  Park  North 

Suite  P 

Irvine,  CA  92734 

169.95  Macintosh  version 
$49.95  other  versions 


Gemstone  Warrior 

James  V.  Trunzo 

Requirements:  Commodore  64  ivith  a  disk 
drive;  Apple  ll-series  computer  with  at 
least  48K  and  a  disk  drive.  Joystick  option- 
al but  recommended. 


Strategic  Simulations  Inc.,  better  known 
simply  as  SSI,  has  built  its  formidable 
reputation  in  the  software  industry  pri- 
marily on  the  excellence  of  its  highly 
detailed,  historically  based  computer 
war  games.  Even  when  SSI  occasionally 
departs  from  this  bread-and-butter 
genre — as  it  has  with  some  fantasy,  sci- 
ence-fiction, and  sports  games — the 
company  has  stuck  with  a  realistic  simu- 
lation/role-playing approach.  With  the 


release  of  Gemstone  Warrior,  SSI  makes  a 
triumphant  entry  into  the  arcade 
market. 

Although  Gemstone  Warrior  is  billed 
as  a  strategic  arcade/adventure  {and 
certainly  some  strategy  comes  into  play, 
as  it  does  with  all  games),  it  is  primarily 
an  arcade  game  with  an  adventure  mo- 
tif— and  a  very  challenging  one  at  that. 

The  Gemstone,  a  source  of  unbe- 
lievable magical  power,  has  been  stolen 
by  demons,  plunging  Earth  into  desper- 
ation and  despair.  Only  a  true  hero  can 
save  mankind  by  regaining  the  Gem- 
stone, now  fragmented  into  five  pieces 
scattered  around  the  underworld  do- 
main of  the  demons.  Reassembling  the 
Gemstone  is  your  task  as  a  Gemstone 
Warrior.  Using  both  the  keyboard  and 
joystick  to  maneuver  your  crossbow- 
armed  warrior  about  the  screen,  you 
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must  travel  through  90  underground 
caverns,  fighting  a  variety  of  monsters 
along  the  way.  You  also  collect  what- 
ever treasures  you  can  find  on  your  van- 
quished foes  or  in  chests  and  coffins. 

Learning  To  Use  Magic 

While  the  concept  is  certainly  simple 
enough,  almost  ordinary,  the  play  itself 
is  anything  but  simple.  The  skill  needed 
to  outmaneuver  and  outfight  the  mon- 
sters guarding  the  Gemstones  will  chal- 
lenge even  the  best  joystick  jockies,  and 
you  must  respond  quickly  v^'ith  the  key- 
board that  controls  movement  and  the 


use  of  your  magical  treasures.  Also  es- 
sential to  becoming  competitive  (forget 
about  winning  early  on)  is  learning  to 
recognize  and  understand  the  powers  of 
each  different  magical  device  and  op- 
posing monster.  How  and  when  to  use 
the  magic  at  your  disposal  is  where  the 
strategy  comes  into  play. 

Gemstone  Warrior  has  excellent 
graphics  for  a  game  of  this  tj'pe  and 
some  other  niceties.  You  can  select  from 
several  levels  of  difficulty,  pause  a  game 
during  play,  and  save  a  game  in  pro- 
gress. The  last  feature  is  particularly  use- 
ful because  one  game  can  take  up  to  two 


hours  to  play — provided  you've  become 
proficient  enough  to  survive  the  first  five 
minutes! 

SSI's  first  true  entry  into  the  arcade 
game  field  is  an  impressive  one.  We  look 
forward  to  more. 

Gemstone  Warrior 

Strategic  Simulations  Inc. 

883  Stierlin  Road 

Building  A-200 

Mountain  View,  CA  94043 

SM.95  @ 


CAPUTE! 


Modifications  or  Corrections  To  Previous  Articles 


IBM  Disk  Rx 

Even  though  this  disk  file  recovery 
program  from  the  May  issue  (p.  90) 
provides  a  48K  storage  area,  it  can- 
not be  used  as  published  on  files 
longer  than  32K.  The  reason  for  this 
is  because  the  variables  in  the  loops 
for  reading  characters  from  disk  are 
integer  variables,  ufhich  are  limited 
to  a  maximum  value  of  32,767. 
However,  the  changes  below  will 
allow  you  to  use  all  the  available 
workspace: 

M  520  SCTR=NDNDATA:  STP!=t.H3C00 

K«  990  STPF!=5TP! 

IN    1020         POKE    STP!+I,PEEK(&HFD0 

0+1) 
IIP    1040    STPI=STP!+512 
CH    1060    STPFf=STP! 

JI    1290    IF    STP!=&H3C00    THEN    1470 
PH    1360    GOSUB    1730:     GOSUB    1500 
HP    1410    FOR    I!=J<H3C00    TD    STP ! 
SE    1420         PRINT    #1,CHR*(PEEK(I f ) 

>5 
Pli    1430    NEXT    I! 

Commodore  File  Protector 

The  author  has  supplied  the  follow- 
ing two  corrections  for  this  utility 
program  from  the  April  issue  (p. 
115),  although  the  program  works 
as  published  (assuming  you  added 
the  appropriate  line  20  from  p.  115): 

960  GOSUB  660!GOSUB  730 
1050  GOSUB  660:GOSUB  730:PRINT 
"DISK  IS  UNLOCKED 

Also,  if  you  ever  want  to  quick- 
ly unlock  all  the  files  on  a  disk,  make 
the  following  temporary  changes, 
which  will  cause  menu  option  2  to 
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unlock  all  files  instead  of  locking 
them.  Don't  save  the  "File  Protec- 
tor" program  with  these  changes 
unless  you  are  willing  to  give  up  the 
lock  all  files  option,  in  which  case 
you  should  change  LOCK  to  UN- 
LOCK in  line  1100  to  reflect  the  new 
function  of  that  option: 

150  IF  (A  AND  64)=0  THEN  170 
160  PRINT#15, "B-P" r2;P+32*I:PR 
INT#2,CHR$(A  AND  135); 

TurboDlsk  For  Commodore 
64 

There  are  no  errors  in  the  64  version 
of  this  high-speed  disk  loading  utili- 
ty (April  issue,  p.  86),  yet  we  have 
received  a  number  of  letters  from 
readers  who  experienced  some  diffi- 
culties implementing  this  program. 
It  is  important  to  follow  the  instruc- 
tions accompanying  the  article  rath- 
er precisely:  Do  not  save  Program  1 
with  the  filename  TURBODISK.OBJ. 
That  is  the  name  of  the  file  contain- 
ing the  machine  language  for  "Turbo- 
Disk"  which  is  created  on  disk  when 
you  run  Program  1.  Use  any  name 
you  want  for  Program  1  except 
TURBODISK.OBJ  (or  TURBODISK, 
which  we  suggested  you  use  for 
Program  2).  You  do  not  need  to  save 
a  copy  of  Program  1  on  every  disk 
on  which  you  put  Program  2.  Rath- 
er, you  should  use  Program  1  to 
write  a  copy  of  the  TURBODISK.OBJ 
file  to  any  disk  from  which  you  wish 
to  use  Program  2  to  load  and  execute 
TurboDisk, 


IBM  Proofreader 
Enhancement 

Reader  Robert  Trotte  suggests  add- 
ing a  CLIST  command  combining 
the  features  of  the  existing  CHECK 
and  LLIST  commands  to  the  IBM 
version  of  the  "Automatic  Proof- 
reader." This  allows  you  to  print  out 
a  listing  with  checksums  for  com- 
parison with  the  published  listing. 
Add  the  following  line  to  the 
Proofreader: 

41 S  IF  COMMAND«=" CLIST"  THEN 
OPEN  "Iptli"  FDR  OUTPUT  A 
S  #liCKFLAB-li  GOTO  300   O 
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Commodore 
Recruncher 


Jerry  Smith 


This  short  machine  lariguage  utility 
for  the  Commodore  64  or  VlC-20  con- 
verts BASIC  programs  from  ASCII  to 
tokenized  form.  It  can  also  merge  two 
BASIC  programs. 


Have  you  ever  tried  to  send  or  re- 
ceive BASIC  programs  over  a  mo- 
dem with  a  Commodore  computer? 
It's  not  as  easy  as  you  might  think. 
The  difficuhy  stems  from  the  way 
BASIC  programs  are  stored.  When 
you  type  in  a  BASIC  line,  keywords 
like  PRINT,  GOTO,  and  so  on  aren't 
spelled  out  in  memory  with  individ- 
ual characters,  such  as  P-R-I-N-T. 
Instead,  each,  keyword  is  converted 
into  a  one-byte  value  called  a  token. 
A  tokenized  program  is  said  to  be 
"crunched"  because  it  takes  consid- 
erably less  space  than  it  would  in 
non tokenized  form.  This  conserves 
memory  and  makes  BASIC  run 
faster, 

BASIC  tokens  always  have 
character  code  values  greater  than 
127  (character  codes  are  numbers 
assigned  to  characters  according  to 
the  ASCII  convention — American 
Standard  Code  for  Information  In- 
terchange), Since  much  telecommu- 
nications software  is  designed  to 
handle  ASCII  characters  with  values 
of  only  127  or  less,  they  may  not 
transmit  tokenized  BASIC  programs 
correctly.  Many  computers  have 
commands  to  convert  programs 
back  and  forth  between  ASCII  and 
tokenized  formats,  but  the  Commo- 
dore 64  and  VIC-20  do  not.  There- 
fore, to  exchange  Commodore 
BASIC  programs  with  a  modem. 


you  have  to  convert  the  programs 
manually. 

As  you'll  see  in  a  moment,  it's 
easy  to  "uncrunch"  a  tokenized 
BASIC  program  (convert  the  tokens 
into  ASCII  characters  which  the  mo- 
dem can  transmit).  However,  the 
computer  won't  be  able  to  run  the 
program  until  you  "recrunch"  it — 
change  the  spelled-out  keywords 
back  into  tokens  again. 

The  solution  is  "Commodore 
Recruncher."  It  converts  ASCII  list- 
ings of  BASIC  programs  into  token- 
ized form  and  works  with  either 
tape  or  disk.  Although  it  was  written 
primarily  to  recrunch  listings  re- 
ceived over  a  modem,  you  can  also 
use  it  to  merge  two  programs  into 
one. 

Commodore  64  users  should 
enter  and  save  Program  1.  Program 
2  is  the  VIC-20  version.  When  you 
run  Commodore  Recruncher,  it 
automatically  relocates  a  small  ma- 
chine language  program  at  the  top 
of  memory  and  places  the  starting 
address  of  the  program  in  the  com- 
puter's user  vector.  This  allows  you 
to  activate  the  Recruncher  with  a 
simple  USR  function  call  no  matter 
where  the  machine  language  is 
located. 

Creating  ASCII  Files 

Before  using  the  Recruncher,  you'll 
need  something  to  recrunch.  It's 
easy  to  convert  a  tokenized  BASIC 
program  into  ASCII  form.  Load  a 
program  and  enter  the  following 
line  in  direct  mode  (with  no  line 
number): 
For  disk: 


OPEN  l,8,8,"/i7pnflme,S,W":CMD 
1:LIST 

For  tape: 

OPEN  l,l,l,"filename":CMD  1:LIST 

Substitute  for  filename  the 
name  under  which  you  want  the 
program  stored.  When  you  press 
RETURN,  the  program  is  written  to 
disk  or  tape  and  the  drive  motor 
stops  (although  the  red  busy  light 
on  the  disk  drive  remains  on).  You'll 
also  see  the  READY  prompt  on  the 
screen.  But  the  operation  isn't  fin- 
ished. At  this  point,  it  is  very  impor- 
tant to  properly  close  the  file.  Do 
this  by  entering  the  following  line  in 
direct  mode: 

PRINT#l:CLOSE  1 

If  you  fail  to  do  this,  the  last  few 
lines  of  your  program  are  not  writ- 
ten to  tape  or  disk,  and,  for  tape,  the 
end-of-program  marker  is  not 
added.  Improperly  closed  disk  files 
can  be  a  real  problem.  If  they  are  not 
removed  from  the  disk,  they  can 
cause  the  disk  directory  to  become 
garbled  so  that  other  programs  are 
lost.  (Unclosed  files  are  so  danger- 
ous that  they  are  sometimes  referred 
to  as  "poison  files.")  Unclosed  files 
show  up  on  the  disk  directory  with 
an  asterisk  (*)  beside  the  file  type.  If 
you  ever  see  an  asterisk  in  a  direc- 
tory entry,  get  rid  of  the  file  at  once. 
But  don't  use  the  normal  SCRATCH 
(SO:)  command  to  remove  the  file; 
instead  use  the  VALIDATE  com- 
mand (OPEN  15,8,15,"V0:":CLOSE 
15). 

Disk  users  should  note  the  suf- 
fix ,S,W  following  the  filename  in 
the  above  command.  This  stores  the 
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COMMODORE  64 


COMPUTER  AND  SOFTWARE 


SALE 


C128  COMMODORE 
COMPUTER 


•  with  $19.95  Software  Purchase 

•  170K  Disk  Drive  $149.00  * 

•  Tractor  Friction  Printer  S1S9.00 

•  13"  Hi-Res  Color  Monitor  $179.00* 


•  COMMODORE  64  COMPUTER  S139.a0 

You  pay  only  5139,00  (wilh  the  S19.95  soltwore 
purchose.  see  below)  when  you  order  Ihe  powerful 
84K  COMMODOSE  6A  COMPUTER!  LESS  the  value  of 
Ifie  SPECIAL  SOFTWARE  DISCOUNT  COUPON  we  pock 
wilh  your  computer  tfiat  allows  you  to  SAVE  OVER 
S500  oil  soliwore  sale  prices!!  Willi  only  SlOO  of 
savings  applied,  yaur  net  computer  cost  is  $3^.00!  I 

*  170K  DISK  DRIVE  $149.00 

You  pay  only  SU9,00  (wittl  the  519,95  softwore 
purchase,  see  below)  vtfher>  you  order  Ihe  1  70K  Disk 
Drive!  LESS  the  volue  of  the  SPECIAL  SOFTWARE 
DISCOUNT  COUPON  we  pack  with  your  disk  drive  that 
allows  you  lo  SAVE  OVER  $500  off  software  sale 
prices'!  With  only  SlOO  of  savings  applied,  your  net 
disk  drive  cost  isSJ^.OO. 

•  13"  HI-RES  COLOR  MONITOR  »17f.OO 

You  poy  only  SI79.00  (with  ihe  S19.95  soltwore 
purchase  see  below)  when  you  order  this  13  COLOR 
MONITOR  with  sharper  and  clearer  resolution  then 
ony  other  color  monitors  we  hove  lesled!  LESS  value 
of  the  SPECIAL  SOFTWARE  DISCOUNT  COLJPON  we 
pack  wilh  your  monitor  that  allows  you  lo  save  over 
$500  oli  soltwore  sole  prices!!  With  only  SlOO  of 
savings  applied,  your  net  color  monitor  cost  is  only 
S79.00.  {16  Colors). 

80  COLUMN  80  CPS 
TRACTION/FRICTION  PRINTER  $1S4.00 

You  pay  only  S159.00  when  you  order  the  Comstar  T  F 
delune  line  printer  thoi  prints  8^3x11  full  size,  single 
sheet,  roll  or  fan  fold  paper,  lobels,  etc.  Impact  dot 
matrix,  bidireclionol.  LESS  the  value  of  the  SPECIAL 
SOFTWARE  DISCOUNT  COUPON  we  pack  with  your 
printer  that  allows  you  to  SAVE  OVER  $500  off 
software  sole  prices!!  With  only  SlOO  of  savings 
opplled  your  net  printer  cost  is  only  S59.00. 

SO  COLUMN  BOARD  $79.00 

Now  you  program  80  COLUMNS  on  the  screen  of  one 
lime'  Converts  your  Commodore  6 J  lo  BO  COLUMNS 
when  you  plug  in  Ihe  80  COLUMN  EXPANSION 
BOARD' !  PLUS  A  slot  expander  and  word  processor 

to  COLUMNS  IN  COLOR 
PAPERBACK  WRITER  »4  WORD  PROCESSOR  HiM 

This  PAPERBACK  WRITER  6i  WORD  PROCESSOR  is  the 
finest  avoiloble  for  the  COMMODORE  64  computer! 
The  ULTIMATE  FOR  PROFESSIONAL  Word  Processing 
DISPLAYS  JO  or  80  COLUMNS  IN  COLOR  or  block  ond 
white!  Simple  to  operote,  powerful  text  editing 
complete  cursor  and  insert  delete  key  controls  line 
and  porogroph  insertion,  oulomotic  deletion, 
centering,  morgin  settings  and  output  lo  oil  pcinters! 
List  $99.00  SALE  $34.00  Coupon  S29,95 


CALL  H  PRICES 

BEFORE  ■  MAY 

YOU  ■  BE 

ORDER  ■  LOWER 


SPECIAL  SOFTWARE  COUPON 


We  pack  a  SPECIAL  SOFTWARE  DISCOUNT 
COUPON  Hllh  every  COMMODORE  M 
I  COMPUTER.  DISK  DRIVE,  PRINTER,  or 
MONITOR  we  lelll  Thtl  coupon  allowi  you 
to  SAVE  OVER  SSOO  OFF  SALE  PRICESl' 


(Coming  Soon  —  Order  Now) 

oo* 


(Examples) 

PROFESSIONAL  SOFTWARE 
COMMODORE  64 

Nom« 

Poperbach  Wriler  6^ 

Pap'Crback  Dalo  Base 
I  Paperback  Dictionary 
I  Praclicak  II 
I  Prrni  Shop  (Disk) 

Procricdk 

Progrommers  Se'lerence 
I       Gui'do 

I  Programmers  Helper 
{Di^k! 

80  Column  Screen  {Disk] 

Disk  Filer  (by  Flip-N-Fifle) 

Deluxe  Tope  Cassette 

Pro  Jo/Sfick 

Light  Pgn 

Dusi  Cover 

Simon  s  Basic 

Pilslop  II  Epyx 
!   Super  Graphi::^  E»ponder 
I  Music  Cok  I 
1  Filewriter 

{See  over  }00  coupon  items  in  our  catalog) 

Write  or  call  for 

I  Sampfe  SPECIAL  SOFTWARE  COUPON! 


Lilt 

Sala 

Coupon 

S99.00 

539.00 

539. 9S 

S49.00 

S3J.95 

S24.9S 

S24  "JS 

S1J.95 

SI  0.00 

549.95 

549.95 

544.95 

S44.95 

532.95 

526.95 

559.95 

524.95 

519.95 

520. 95 

$16,95 

512.50 

S59.9S 

539  95 

$19.95 

559.95 

$29.95 

519.95 

539.95 

$14.95 

512.95 

sa9.oo 

$44.95 

$34.95 

519.95 

$12  95 

$10  00 

539.95 

$14.95 

$  9.95 

5  8.95 

$  6.95 

$4,60 

529.95 

$22  95 

$19.95 

S39  95 

$24  95 

$19  95 

529.95 

522  95 

$19.95 

559,95 

$39  95 

524.95 

559  95 

529,95 

$24.95 

ATTENTION 

Computer  Clubs 

We  Offer  Big  Volume  Discounts 
CALL  TODAY! 


'The  $19.9S  Software  Purchase  Options 


1 .  24  Progrom  Bonus  Pack  {tape  or  disk) 

2.  Oil  Barrani-Slrotegy  Boord  Game 

3.  Disk  Drive  Cleaner 

4.  HE5  Games  (disk) 

5.  Pogo  Joe  (lope  or  disk) 


List 
$29.95 
$49.95 
$29.95 
529.95 
$29.95 


SALE 

tlf.1) 

tit.is 

tif.tl 
t19.tS 
•  H.tJ 


■  Computer  Learning  Pad  $37.45 

•  Voice  Synthesizer  $49.00 

•  12"  Green  or  Amber  Monitor  $79.9S 

•  12"  Daisy  Wheei  Printer  $194.00 


*  C12B  COMMODORE  COMPUTER  »2f9.00 

We  expect  0  limited  supply  the  1st  week  in  July,  We 
will  ship  on  Q  first  order  basis.  This  all-new 
revolutionary  128K  computer  uses  oil  Commodore  64 
software  ond  accessories  plus  oil  CPM  programs 
lormotted  for  the  disk  drive, 
list  S349.00.  SALE  $»f  .00. 

SUPER  AUTO  DIAL  MODEM  tSt.OQ 

Eosy  to  use.  Just  plug  into  your  Commodore  64 
compuler  ond  you're  ready  to  transmit  ond  receive 
messages.  Eosier  to  use  than  dialing  your  telephone, 
jusl  push  one  key  on  your  compuler!  Includes 
exclusive  easy  to  use  progrom  tor  up  and  down 
loading  to  printer  and  disk  drives.  Be%t  in  U.S.  A, 
LislSl!9,l)OSAli$S».00. 

COMPUTER  LEARNING  PAD  $3^.95 

Makes  other  grophics  toblets  obsolete.  This  TECH 
SKETCH  LEARNING  PAD  allows  you  to  draw  on  your 
T.V.  or  Monitor  ond  then  you  con  print  whatever  you 
drow  on  the  screen  on  your  printers,  FANTASTIC!!] 
list  J79.95  SALE  »37.9i. 

VOICE  SYNTHESIZER  t4f.00 

For  Commodore-64  computers.  Just  plug  i!  in  ond  you 
can  progrom  words  end  sentences,  odjusf  volume  and 
pitch,  moke  talking  adventure  gomes,  sound  oction 
games  and  customized  talkies!  I  FOR  ONLY  $19,95  you 
can  add  TEXT  TO  SPEECH,  just  type  a  word  and  hear 
your  computer  talk  —  ADO  SOUND  TO  "ZORK",  SCOTT 
ADAMS  AND  OTHER  ADVENTURE  GAMES!  ! 
(Disk  or  tope,} 

13"  GREEN  OR  AMBER  MONITOR  S7f  .9S 

Vour  choice  ol  green  or  amber  screen  monitor,  top 
quohty,  60  colunins  x  24  lines,  easy  lo  read,  anti- 
glare! PLUS  S9.95  tor  connecting  coble,  Com,64  or 
VIC-20, 

PRINTER/TYPEWRITER  COMBINATION  UnM 

JUKI"  Superb  letter  quolity,  doisy  wheel 
printer/typewriter  combinotion.  Two  machines  in  one 
—  just  a  flick  of  the  switch.  12"  extro  large  carriage, 
typewriter  keyboard,  automalic  margin  control  and 
relocate  key.  drop  in  cassette  ribbon!  (90  doy 
warranty)  Centronics  parallel  or  RS332  seriol  port  built 
in  (Specify).  Li5tS349.00.  SALE  $149.00.  (Ltd.  Oty.) 

CARDCO  G  +  INTERFACE  $S9.D0 

For  Commodore  64  and  Vic  20  computers.  Lets  you  use 
other  printers  with  Centronics  interfoces.  This 
interface  lets  the  printer  act  like  a  Commodore  printer 
including  printing  the  Commodore  grophics  {Dot 
matrix  with  graphic  capability  printers). 
List  SlO9,0O  SALE  $S4.00, 


I<  LOWEST  PRICES  •  IS  DAY  FREE  TRIAL 
•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL 


PHONE  ORDERS 

8  a.m.  -  8  p.m.  Weekdays 
9  a.m.  -  12  noon  Saturdays 


•  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  OVER  500  PROGRAMS  *  FREE  CATALOGS 


Add  510,00  for  shipping,  handling  ond  insuronce,  Illinois  residents 
please  odd  6%  tox.  Add  S20.00  for  CANADA,  PUERTO  RICO,  HAWAII, 
ALASKA,  APO-FPO  orders,  Canadian  orders  must  be  in  U.S.  dollars. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA. 
Enclose  Cashiers  Check.  Moriey  Order  or  Personal  Check.  Allow  14 
days  for  delivery.  2  to  7  days  for  phone  orders.  1  day  express  rnoil ! 
VISA  ^  MASTER  CARD  —  C.O.D.  No  C.O.D.  to  Conodo.  APO-FPO 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barringlon,  Illinois  60010 

312/382-5244  to  order 


FANTASTIC  COMPUTER  PRINTER  SALE!!! 


10X  COMSTAR 

HIOH  SPEED 

Tractor      Friction      Printer 
130-150  CPS 


Only 


Ll 


List  $499 


ISVi"  150-170  CPS  Printer  $319'' 


•  Lowest  Sale  Price,  Premium  Ouality.  Tractor/Fricfion  Printer  in  the  U.S.A.  (Best  Value} 

•  Highspeed  1 30- ISO  Characters  Per  Second  '  40,  46,  66,  80,  96,  J  32  line  spacing 

•  Word  Processing,  Letters  •  Business  Forms  •  Labels,  Graphics,  Tables  •  List  Programs 
Fantastic  Graphics  •  Print  Modem  Data  •  The  Most  Important  Accessory  For  Your  Computer 


Premium  Quality 
130-150  CPS  lOX  COMSTAR 

High  Speed  Printer  $199 

10"  carriage,  2K  buffer,  prints 
8i/4"xll"  standard  single  sheet  or 
continuous  feed  paper.  Bi-directional, 
impact,  dot  matrix,  130-150  CPS,  9x9 
dot  matrix  with  double  strike 
capability  for  18  x  18  dot  matrix  (near 
letter  quality),  high  resolution  bit 
image,  underlining,  downloadable 
characters,  true  lower  descenders 
with  super  and  subscripts,  prints 
standard,  block  graphics,  and  special 
characters.  It  gives  you  print  quality 
and  features  found  on  printers  costing 
twice  as  much!  I  (Centronics  Parallel 
Interface)  (Better  than  Epson  FXSO 
and  Gemini  lOx). 
List  S499.00.  Sale  $199.00. 

Premium  Quality  150-170  CPS 

151/2X  COMSTAR  Business 

Super  High  Speed  Printer  $319.00 

Has  all  the  features  of  the  lOX  COM- 
STAR PRINTER  plus  151^"  carriage 
and  more  powerful  electronics 
components  to  handle  large  ledger 
business  forms!  (Better  than  Epson 
FX  100  &  Delta  15). 
List  $599.  Sale  S319.00. 


■JUKI' 

12"  DAISY  WHEEL 

PRIIVTEK  $199.00 

"JUKI"  Superb  letter  quality  daisy 
wheel  printer,  12"  extra  large 
carriage,  up  to  12CPS  bi-directional 
printing,  drop-in  cassette  ribbon,  {90 
day  warranty)  Centronics  parallel  or 
RS232  serial  port  built  in !  ( Specify) . 
Limited  Quantities. 
List  $299.00.  Sale  $199.00. 


■JUKI' 

F*rmter/Type>vriter 
Combination  $249.00 

"JUKI"  Superb  letter  quality,  daisy 
wheel  p  r  i  n  t  e  r  /  t  y  pe  w  r  1 1  e  r 
combination.  Two  machines  in  one  — 
just  a  flick  of  the  switch.  12"  extra 
large  carriage,  typewriter  keyboard, 
automatic  margin  control  and  relocate 
key,  drop  in  cassette  ribbon!  (90  day 
warranty)  Centronics  parallel  or 
RS232  serial  port  built  in  (Specify). 
List  $349.00.  Sale  $249.00. 


OOlympia 


Executive  Letter  Quality  $339.00 
15"  Daisy  Wheel  Printer 

This  is  the  world's  finest  daisy  wheel 
printer.  Fantastic  letter  quality,  up  to 
20  CPS  bi-directional,  will  handle  14.4" 
forms  width!  Has  a  256  character  print 
buffer,  special  print  enhancements, 
built  in  tractor-feed  (Centronics 
Parallel  and  RS232C  Interface)  (90 
day  warranty ) . 
List  $649.00.  Sale  $339.00 


OOlympia 


Printer/Typewriter  Combination  $439.00 

Better  than  IBM  Selectrlc.  Superb 
computer  printer  combined  with  the 
world's  finest  electronic  typewriter. 
Two  machines  in  one,  just  flick  the 
switch  for  up  to  20  CPS  printing  (300 
Words  per  minute)  on  a  15  "  carriage 
that  handles  up  to  14  1/8"  in.  paper. 
Drop  in  cassette  ribbon  —  express  lift 
off  correction,  Centronics  parallel 
interface  (90  day  warranty). 
List  $749.00.  Sale  $439.00. 


J5  Day  Free  Trial  —  7  Year  Immediate  Replacement  Warranty 


-PARALLEL  INTERFACES 


For  VIC-20  and  COM-64  —  $59.00.  Apple  —  $59.00.  Atari  —  $59.00. 


Add  SI 4.50  (or  shipping,   handling  ond   insurance.   Illinois  residents 
please  add  6%  toi.  Add  S39,00  for  CANADA.  PUERTO  RICO,  HAWAII, 
ALASKA.  APO-FPO  orders.  Canodian  orders  musl  be  in  U.S.  dollors. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT  CANADA. 
Enclose  Cashiers  Check,   Money  Order  or  Personal  Check.  Allow  14 
days  delivery.  2  to  7  doys  (or  phone  orders.  I  day  express  moil ! 
VISA  —  MASTERCARD  —  C.O.D.  No  C.O.D.  to  Conodo  or  APO-FPO 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Borrington,  Illinois  60010 

312/382-5244  fo  order 


SALE 


80  CPS  PRINTER 


SAi^ 


Smith  Corona 


•  Commodore  64 


•   Atari 


*  Apple 


•  More 


11"  Carriage     •  Friction/Tractor     •  Graphics 


SMITH 
CORONIK 

The  Fastext  80  dot  matrix  printer  from  Smith-Corona.  A  high  speed,  high  flexibility  printer  with  a  low  suggested 
manufacturer's  retail  price  of  only  S299.00.  Sale  $159,00.  It  does  your  graphics  with  ease  and  prints  letters  with  speeds  up 
to  80  CPS,  (Does  Commodore  graphics  with  graphics  interface.)  As  for  flexibility,  it  has  bi-directional  printing,  friction 
and  tracter  feed  ,  Plus  six  different  pitches  including  condensed  and  enlarged  type  for  impeccable  characters  in  a  variety 
of  sizes.  Also  standard  is  a  full  line  buffer  and  thrifty  drop-in  ribbon  cassettes  that  yield  up  to  a  million  characters.  Finally, 
it's  compatible  with  virtually  all  personal  computers.  Teamed  up  with  your  personal  computer,  it'll  keep  track  of  your 
transactions,  fly  through  finances,  help  with  homework,  even  plan  the  family  menu.  All  this  with  the  assurance  of  superb 
Smith-Corona  quality  built  in,  makes  the  Fastext-80  a  lot  of  dot  for  your  dollar.  List  $299.00.  Sale  $T59.00. 


SPECIFICATIONS: 

Size/Weight;  Height  4"  Width  16.5"  Depth  9" 

Weight  8.2  lbs. 
Electrical  Needs:  120V/60Hz     " 
Internal  Chor.  Coding:  ASCIISISO 
Print  Buffer  Size:  132  Bytes  (I  line) 
No.  of  Char,  in  Chor.  Set:  96  ASCIU 

International 
Graphics  Capability:  Stondard  60,  72  Dots  Per 

Inch  Horizontal.  72  Dots  Per  Inch  Verticol 
Pitch;  10.  12,  16.7,  5,  6,  8.3 
Printing  Method:  Impact  Dot  Matrix 


Char.  Matrix  Size:  (Standard)  9H  x  8V, 
(Elongate)  lOH  x  8V 

Printing  Features:  Bi-directional.  Short  line 
seeking 

Printing  Speed:  80  CPS 

PAPER 

Type:  Plain 

Forms  Type:  Fontold,  Cut  Sheet 
Max  Paper  Width:  1 1" 

Feeding  Method:  Friction  Feed  Std.;  Tractor 
Feed  Included 


RIBBON 

Type:  Cassette  —  Fobric  inked  ribbon 
Life:  1  million  characters 

CHARACTER  MODE 

Character  Font:  9x8  Standard.  10x8  Elongated, 

No.  8  pin  fo  be  used  for  underline 
Character  Set:  95  ASCII.  11x7  Internotional  Chor. 
Pin  Groph  Mode;  The  inconning  bit  pattern 

corresponds  to  the  8  pins  in  the  print  head 
Resolution:  Horizontal:  60.  72  dots/inch,  Verticol: 

72  dots/inch 


PARALLEL  INTERFACES 


Commodore  64  —  $39.00  Apple  II,  lie,  II  +  -  S59.00  Atari  —  S59.00 


Add  SIO.OO  for  shipping,  handling  and  insurance.  Illinois  residents 
please  odd  6%  lox.  Add  $20.00  for  CANADA,  PUERTO  RICO,  HAWAII. 
ALASKA,  APQ.FPO  orders.  Canadian  orders  must  be  in  U.S.  dollars. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES.  EXCEPT  CANADA. 
Enclose  Cashiers  Check,  Money  Order  or  Personal  Check,  Allow  14 
days  tor cJQlivery.  2  to  7  doys  tor  phone  orders,  t  day  express  moilt 
VISA  —  MASTER  CARD  —  C.O.D. 

NoC.O.D.  toConodo,  APOFPO. 


We  LiO've  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  60010 

312/382-5244  to  order 


w 


Commodore  64 


One  Megabyte 


NEIV 


$ 


1 99  Disk  Drive  '  i  ^9 

Store  Spreadsheets,  Databases,  Wordprocessing  Data,  Etc. 

•  Commodore  64  •  PET  •  8032  •  B128 


The  one  megabyte  disk  keeps  you  from  hunting  through  hundreds  of  disks  for  your  programs;  plus  running  out  of 
room  on  your  drive  for  Data  base  Data,  Word  processing  Text,  Spreadsheet  Data,  Business  program  Data,  etc. 
With  the  One  Megabyte  Disk  Drive  you  con  store  over  SVi  times  the  capacity  of  the  1541.  You  can  store  your 
own  programs  and  any  bock-upoble  commercial  programs  plus  data  from  your  business  programs*.  Perfect  as  a 
second  Drivel  I  I  I  Enter  the  world  of  professional  computers  today.  C-64  requires  IEEE  interface. 
List  $899.00.  Sale  $199.00.  LIMITED  QUANTITIESI  -Requires  2  drive  softwore. 


00 


^299°°  Sale  ^299 

I5V2"  High  Speed 
150-170  CPS 

BUSINESS  PRINTER 


The  MPP-1361  is  o  highly  odvonced  136-250  column  }5Vi"  professional  tractor/friction  printer  with  full  Bit  image 
graphics  and  downloadable  characters  for  custom  reports  and  program  listings.  The  paper  feed  includes  a  multiple  pin 
tractor  for  smooth  error  free  operation.  With  the  ribbon  rated  at  1  million  characters  (no  mess  cartridge)  and  the  print 
head  at  100  million  characters  this  printer  wTll  last  a  lifetime.  Full  formatting  with  near  letter  quality  makes  lining  up 
decimal  points,  automatic  "$"  signs  and  tobbing  look  fantastic  and  easy  to  use.  With  out  a  doubt  THIS  IS  THE  BEST 
PRINTER  VALUE  IN  THE  U.S.A.  List  $899.00  Sale  $299.00.  LIMITED  QUANTITliS! 


SPECIFICATIONS 


PRINTING  METHOD 

Serial  Impact  Dot  Matrix 

PRINT  RATE 

150-170  Characters  per 

second (CPS) 

PRINT  STYLE 

Near  Letter  Quality 

PRINT  DIRECTION 

Bi-directional 


COLUMN  CAPACITY 

1 36  -  250 

LINE  SPACING 

Programmable 

COPIES 

3,  including  originol 

RIBBON  TYPE 

Cartridge  ($14.95) 


RIBBON  LIFE 

1  Million  Characters 
PAPER  WIDTH 
3"  to  IS'/i"  tractor  or 
single  sheet  friction 
INTERFACE 
IEEE  Protocol 
CHARACTER  SIZE 
0.116"  high,  0.08"  wide 


GRAPHICS 

Bit  Imoge 

Programmable  Characters 

Reverse  Characters 

ERROR  HANDLING 

Internal 

Self  -  Diagnostics 

Microprocessor 


Commodore  64  IEEE  Interface 


This  interfoce  plugs  into  your  Commodore  64  Disk  Drive  port  and  allows  you  to  hook  up  the  1  Megabyte  Disk  Drive  and 
MPP-1361  Printer  as  well  as  other  IEEE  devices.  Seporte  power  supply  insures  reliability.  Fantastic  Interface,  (includes 
all  cobles)  List  $109.95.  If  bought  with  printer  or  disk  drive  $69.00. 

(no  interface  needed  for  PET,  B-128,  and  8032compulers) 


Add  S17,50  for  shipping,  handling  ond  insuronce.  Illinois  residents 
piBose  odd  6%  tax.  Add  S35.00  for  CANADA.  PUERTO  RICO,  HAWAII, 
ALASKA,  APOFPO  orders,  Canodion  orders  must  be  (n  U.S.  dollars 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA. 
Enclose  Cashiers  Check,  Money  Order  or  Personal  Check.  Allow  H 
doys  tor  deliwei/.  2  to  7  days  for  phone  orders.  1  day  express  mail! 
VISA  —  MASTER  CARD  —  C.O.D. 

NoC.O.D.  toConado,  APO-FPO 


We  Liove  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  60010 

312/382-5244  to  order 


ASCII  Hsting  on  disk  in  sequential 
(SEQ)  format.  Most  terminal  soft- 
ware uses  sequential  files,  but  you 
can  also  substitute  ,P,W  to  create  a 
program  (PRG)  format  ASCII  list- 
ing. The  Recruncher  works  equally 
well  with  either  format.  Tape  users 
needn't  worry  about  this  distinction, 
since  there's  only  one  form  of  tape 
storage, 

To  make  an  ASCII  file  of  part  of 
a  program  on  disk  or  tape,  use  the 
procedure  above  but  specify  line 
numbers  after  the  LIST  statement. 
For  example,  LIST  100-200  creates 
an  ASCII  file  of  lines  100  through 
200.  LIST  -200  lists  every  line  up 
through  200,  and  so  on. 

Recrunching 

Unless  you  are  merging  two  pro- 
grams, you  should  always  enter 
NEW  before  using  the  Recruncher. 
Otherwise  the  recrunched  program 
is  merged  with  the  last  program  or 
disk  directory  loaded  into  memory. 
To  activate  the  Recruncher,  enter 
the  following  line  in  direct  mode, 
replacing  filename  with  the  name  of 
the  file  you  want  to  recrunch: 
For  disk: 

OPEN  l,8,8,7i7e««me,S,R":A  =  USR(0) 

For  tape; 

OPEN  l,l,0,"filename":A  -  USR{0) 

When  the  READY  prompt  reap- 
pears, the  program  is  stored  in 
memory  in  tokenized  form,  ready 
for  you  to  save,  list,  or  run  as  usual, 
(Remember  to  enter  CLOSE  1  to 
close  the  file.)  Disk  users  should  re- 
place ,S,R  with  ,P,R  to  recrunch  an 


QUALITY  ME  Dl A    Because  we  buy 
LIFETIME  REPLACE    in  huge  volume  to 
GUARANTEE    Bupqiy  software 
HUB  BINGS.TYV.  EPS.    manufacturers,  our 
WRITE  PROTECTS    prices  can't  be  beat. 

50+    2S0+    500+  1000  + 

676'SSDD     100        90        85        BO        76 

525"DSDD      115      105       l.OO         95         86 

PCFORMATTED     145      135      1.25      1,15      110 

3  5' ID  (For  Mac)    2,70     2  60     2-45    CALL   CALL 

3,5"  2D  (For  HP)     3  50      3  25      3,15    CALL    CALL 


4^ 


BLACHSHIP 

COMPUTER  SUPPLY 


RO,  Box  BS3362  ■  San  Francisco, CA 94188 

Inquiries  +  No  i:«il  orders415-550-O512 

So,  Cal  orders  800-235-6647x31 

USA  orders  800-235-6646  x  31 

Add  i^  00  sti^pping  and  harming 
(CA  rssidente  add  6  5%  sales  tax)  VISA/MC/COD 


ASCII  listing  saved  in  program 
(PRG)  format. 

Note  that  the  Recruncher  trun- 
cates overly  long  lines  to  the  maxi- 
mum length  of  the  computer's  input 
buffer  (80  characters  for  the  64,  88 
for  the  VIC).  Any  characters  beyond 
those  limits  are  dropped.  You  can 
type  in  such  lines  only  by  using 
keyword  abbreviations  (?  for 
PRINT,  and  so  on).  Long  lines  from 
the  original  program  must  be  typed 
in  manually  after  recrunching,  using 
the  abbreviations  shown  in  the  User's 
Manual. 

Merging  Programs 

To  merge  two  programs  together, 
first  convert  one  of  them  into  ASCII 
form  as  shown  above.  Then  load  the 
second  program  in  the  normal  man- 
ner and  activate  the  Recruncher 
without  entering  NEW.  If  the  two 
programs  do  not  have  any  matching 
line  numbers,  all  the  recrunched 
lines  are  added  to  the  program  in 
memory.  If  they  have  matching  line 
numbers,  the  recrunched  program 
lines  replace  the  matching  lines 
from  the  program  already  in  memo- 
ry. The  merging  capability  provides 
an  easy  way  to  add  standard  sub- 
routines to  new  programs. 


Program  1 :  Commodore  64 
Recruncher 

please  refer  to  "COMPUTEI's  Guide  fo  Typing  In 
Pfogroms"  before  entering  this  listing, 

100  P0KE56,PEEK{56)-1 :CLRrREM 
{SPACE} RESERVE  1  PAGE  AT  T 
OP  OF  MEMORY        : rem  47 

110  S=PEEK(55)+256*PEEK(56) :RE 

M  ML  PROGRAM  START  ADDRESS 

:rem  56 

120  F0RJ=ST0S-I-239!READA:P0KEJ, 
A:NEXT  : rem  67 

130  POKE784,76:POKE785,PEEK(55 

) :P0KS786,PESK(56) :NEW:REH 

SET  USER  VECTOR   : rem  115 

140  DATA169, 128, 133, 253, 160,0, 
132,254,166,184,3  2,198,255 
,165,253,208,11    : rem  226 

150  DATA165,184,32,195,255, 32, 
204,255,76,116,164,3  2,207, 
255,166,144,240    : rem  230 

160  DATA10,160,0,132,253,224,6 
4 , 240 , 2 , 208 , 2  28 , 164 , 2  54 , 1 9 
2,89,208,4         srem  218 

170  DATA201, 13,208,229,201, 13, 
208,2,169,0,8,153,0,2,200, 
230,254  :rem  40 

180  DATA40,208,213,162,255,160 
,1,134,122,132,123,32,115, 
0,240,2,144         :rein  234 

190  DATA6, 160, 0,132, 254, 240, 16 
8,32,107,169,3  2,121,165,13 
2,11,32,19         rrem  208 

200  DATA166,144,68,160,1,177,9 
5,133,35,165,45,133,34,165 
,96,133,37         :rem  243 


210 


220 


230 


240 


250 


260 


270 


280 


DATA165, 
01,45,13 
,105,255 
DATA46 , 2 
5,229,45 
,37,24,1 
DATA34,1 
,34,145, 
,35,230, 
DATA 20 2 , 
173,0,2, 
,165,45, 
DATA90 , 1 
6,132,91 
32,184,1 
DATA165, 
1,141,25 
133,45,1 
DATA46 , 1 
1,145,96 
165, 169, 
DATA240 , 


95,136 

3,45,1 

,133 

29,96, 

,168,1 

01 

44,3,1 

36,200 

37 

208,24 

240,16 

133 

01,11, 

,144,1 

63 

20,141 

5,1,16 

32 

64,11, 

,136,1 

0 

197 


,241,95,24,1 

33,36,165,46 

: rem  70 

170,56,165,9 

76,3,232,198 

:  rem  2 

98,35,24,177 

208,249,230 

:rem  226 
2,32,51,165, 
1,240,163,24 

:rem  250 
133,88,164,4 
,200,132,89, 

!rem  217 
,254,1,165,2 
5,49,164,50, 

: rem  211 
136,185,252, 
6,248,32,51, 

: rem  186 
:rem  23 


Program  2:  VIC-20 
Recruncher 

Pleose  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  ttiis  listing 

100  POKE56,PEEK(56)-l:CLR:REMR 
ESERVEIPGEATTOPOPHEMORY 

J  rem   238 

110  S=PEEK(55)+256*PEEK(56) sRE 
HMLPROGRAMSTARTADDRESS 

: rem   56 

120  FORJ=STOS-^239tREADA:POKEJ, 
A: NEXT  : rem  67 

130  POKE0,76:POKE1,PEEK(55) :P0 
KE2,PEEK(56)  :NE;J   :  rem  254 

140  DATA169, 128, 133, 253, 160,0, 
132,254,166,184,32,198,25  5 
,165,253,208,11    s rem  226 

150  DATA165,184,32,195,255,32, 
204,255,76,116,196,32,207, 
255,166,144,240    : rem  235 

160  DATA10,160,0,132,253,224,6 
4,240,2,208,228,164,254,19 
2,89,208,4         :rem  218 

170  DATA201,13,208,229,201,13, 
208,2,169,0,8,153,0,2,200, 
230,254  :rem  40 

180  DATA40,208,213,162,255,160 
,1,134,122,132,123,32,115, 
0,240,2,144        :rem  234 

190  DATA6, 160, 0,1 32, 254, 240, 16 
8,32,107,201,32,121,197,13 
2,11,32,19         :rem  200 

200  DATAl 98, 144, 68, 160, 1,1 77, 9 
5,133,35,165,45,133,34,165 
,96,133,37         :rem  248 

210  DATA165,9S,136,241,95,24,1 
01,45,133,45,133,36,165,46 
,105,255,133        :rem  70 

220  DATA46,229,96,170,56,165,9 
5,229,45,168,176,3,23  2,198 
,37,24,101  :rem  2 

230  DATA34,144,3,198,35,24,177 
,34,145,36,200,208,249,230 
,35,230,37         :rem  226 

240  DATA202,208,242,32,51,197, 
173,0,2,240,161,240,163,24 
,165,45,133        :rem  255 

250  DATA90,101,ll,133,a8,164,4 
6,132,91,144,1,200,132,89, 
32,184,195         :rem  222 

260  DATA165,20,141,254,1,16S,2 
1,141,255,1,16  5,49,164,50, 
133,45,132         :rem  211 

270  DATA46,164,11,136,185,252, 
1,145,95,136,16,248,32,51, 
197,169,0  :rem  191 

280   DATA240,197  :  reiti   23   © 
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LOOK  AT  ALL  YOU  GET  FOR  ONLY  "^     m     B  ^ 

SYSTEM   PRICE 

Atari  800XL  88K  Computer 

Atari  1050  127K  Disk  Drive 

Atari  1027  Letter  Quality  20  CPS  Printer 

Atari  Writer  Word  Processer 

Atari  BASIC  Tutorial  Manual 


All  connecting  cables  &  T,V.  interface  included. 
■  Monitors  sold  seporetly. 


TOTALS 


LIST  PRICE 

$179.00 

299.00 

299.00 

59.95 

16.95 
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INDIVIDUAL 

SALE  PRICE 

$109'" 
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39« 

SAVE  $100 

All  5  ONLY 

$44900 

SYSTEM 
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12'* 

152K  SYSTEM 
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Other  Accessories                      List 

Sale 

Add  $9,95  for 

Connection  Cables 

{Monitors  Only) 

•4    12"  Hi  Resolution  Green  or  Amber  Screen  Monitor    $199.00 
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■r    13"  Hi  Resolution  Color  Monitor                                         $399.00 
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programs  fail  due  to  faulty  workmonsfiip  or  material  wilfiin  90  days  of  purctiase  we  will  replace  it  IMMEDIATELY  wrtfi  no  service  cfiorge! ! 


Best  Prices  *  Over  1000  Programs  and  500  Accessories  Available  *  Best  Service 
*  One  Day  Express  Mail  *  Programming  Knowledge  *  Technical  Support 


Add  $25.00  for  shipping  and  handlingU 

Enclose  Cashiers  Check,  Money  Order  or  Personal  Check.  Allow  1 4 
doys  for  delivery.  2  to  7  doys  for  phone  orders.  1  day  express  mail! 
We  accept  Viso  and  MasterCard.  We  ship  C.O.D.  to  continentol 
U.S.  oddressesonly.  Add  $10  more  if  C.O.D. 


COMPUTER  DIRECT 
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22292  N.  Pepper  Rd.,  Barrington,  III.  60010 
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Extended  Color  Mode 
For  Commodore 


Jim  Butterfield,  Associate  Editor 


Here's  how  to  control  the  background 
color  of  mdividual  characters  to  add 
variety  to  graphics  displays  on  the 
Commodore  64,  Plus/ 4,  and  16. 


There's  a  feature  on  the  Commo- 
dore 64  that's  not  very  well  known. 
It  can  help  you  create  attractive  dis- 
plays very  easily,  especially  for 
poster-type  screen  announcements. 
It's  called  extended  background  color 
mode,  and  it  lets  you  control  the 
background  color  of  each  character 
on  the  screen.  Extended  color  mode 
is  available  on  the  Plus/4  and  Com- 
modore 16  as  well. 

Normally,  you  may  choose  a 
range  of  colors  for  any  character  that 
your  Commodore  64  displays  on  the 
screen.  But  each  foreground  charac- 
ter is  set  against  a  single  background 
color.  You  know  the  background 
color:  That's  the  one  you  set  with 
POKE  53281  on  the  64.  Let's  catego- 
rize the  choices:  Each  foreground 
character  may  be  one  of  16  colors; 
there  are  up  to  128  possible  charac- 
ters, plus  reverse  characters;  and  the 
screen  has  only  one  background 
color. 

Let's  propose  a  trade.  If  you  cut 
down  your  character  set  to  64  char- 
acters, with  no  reverse  characters 
allowed,  you  can  independently  se- 
lect any  of  four  background  colors 
for  each  character.  Meanwhile,  you 
still  retain  a  full  choice  of  16  charac- 
ter colors. 

How  do  we  make  such  a  trade? 
By  selecting  extended  color  mode, 
giving  away  our  extra  characters  in 
favor  of  a  choice  of  backgrounds.  On 
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the  Commodore  64,  you  can  switch 
modes  with  POKE  53265,91.  On  the 
Commodore  16  or  Plus/4,  it's  done 
with  POKE  65286,91.  Don't  do  it 
yet,  however;  this  POKE  should  be 
used  only  within  a  program. 

If  you  couldn't  wait  and  typed 
in  the  POKE  anyway,  you'll  have 
some  trouble  seeing  the  cursor.  The 
cursor  flash  effect  is  achieved  by 
using  reverse  characters;  as  soon  as 
you  switched  to  extended  color 
mode,  you  gave  away  those  reverse 
characters.  Thus,  you're  probably 
typing  semi-blind.  Put  everything 
back  with  a  POKE  to  the  same  ad- 
dress using  a  value  of  27  rather  than 
91.  You'll  be  happy  to  see  the  cursor 
again. 

The  Tradeoff 

When  you  activate  extended  color 
mode,  you  add  extra  background 
colors,  but  you  lose  some  characters. 
You  get  only  64  characters — gener- 
ally the  unSHlFTed  character  set — 
with  no  reverse  characters. 

What  happens  to  the  missing 
characters?  They're  used  to  select 
background  colors.  When  we  get 
down  to  programming,  we'll  seem 
to  be  trying  to  print  reversed  charac- 
ters, or  SHlFTed  characters,  or  both 
together.  However,  when  the  pro- 
gram runs,  the  standard  unSHlFTed 
characters  are  displayed  on  a  variety 
of  colored  backgrounds.  If  this 
seems  complex,  be  patient;  the  ex- 
ample makes  everything  clear. 

Thus,  extended  color  mode  lim- 
its us  to  the  unSHlFTed  characters. 
Depending  on  which  mode  we're  in, 
that  might  be  either  uppercase 
(graphics  mode)  or  lowercase  (text 
mode).   Fancy  graphics   characters 


are  unavailable — but  you'll  find  that 
the  screen  gains  extra  richness  from 
the  variety  of  backgrounds. 

Choosing  The  Background 

First  you  must  pick  the  four  back- 
ground colors  you  want.  The  first 
one  is  the  standard  background 
color;  on  the  64,  you  set  it  with  a 
POKE  into  53281,  the  familiar  con- 
trol address.  The  other  three  are 
easy;  on  the  64,  you  set  them  with 
POKES  to  53282,  53283,  and  53284. 
On  the  Plus/4  and  Commodore  16, 
you  may  use  the  COLOR  command 
to  set  two  of  these  colors  (COLOR  0 
and  COLOR  3  will  work),  but  you'll 
be  better  off  to  POKE  addresses 
65301,  65302,  65303,  and  65304. 
Here's  what  these  control  addresses 
do  in  extended  color  mode: 


64 

Plus/4 
and  16 

Normal  Background 
Color 

53281 

65301 

SHIFTed  Character 

53282 

65302 

Color 

Reversed  Character 

53283 

65303 

Color 

SHIFTed/Reversed 
Character  Color 

53284 

65304 

The  table  above  also  hints  at 
the  way  you  choose  the  background 
color.  If  you  print  an  unSHlFTed 
character,  it  appears  on  the  standard 
screen  background.  If  you  print  a 
SHIFTed  character,  it  appears  as  an 
unSHlFTed  character  (but  on  a  dif- 
ferent background),  and  so  on. 

A  Simple  Banner  Program 

Enter  and  save  one  of  the  programs 
below,  then  run  it  for  a  demonstra- 
tion of  extended  background  color 
mode.  Commodore  64  users  should 


type  in  Program  1  exactly  as  listed.  If 
you  are  using  a  Plus/4  or  16,  enter 
Program  1  but  substitute  lines 
210-250,  420,  and  450  from  Pro- 
gram 2.  Be  sure  to  press  SHIFT 
when  typing  the  underlined  charac- 
ters as  explained  in  "COMPUTEI's 
Guide  to  Typing  In  Programs"  else- 
where in  this  issue,  and  note  that 
{SHIFT-SPACE}  simply  means  to 
hold  down  SHIFT  while  typing  a 
space. 

Lines  100  to  150  of  the  program 
contain  the  character  data  to  be 
printed,  plus  a  numeric  flag  to  indi- 
cate reverse  video  printing.  We 
could  achieve  the  same  thing  within 
the  string  using  clever  cursor  move- 
ments, but  it  would  be  a  little  harder 
to  type.  The  X  character  in  line  150  is 
a  signal  for  us  to  stop. 

At  line  200,  we  print  three  spe- 
cial characters:  142  moves  us  to 
graphics  mode  so  that  we'll  print  the 
message  in  capitals,  147  clears  the 
screen,  and  144  sets  the  printing 
color  to  black.  We  could  choose  to 
print  in  any  color  combinations,  of 
course. 

Lines  210  to  240  set  the  four 
background  colors.  We'll  meddle 
with  color  nun\ber  4  later,  but  this 
sets  it  initially.  The  Plus/4  and  16 
can  control  both  the  color  and  the 
hue  (brightness);  try  experimenting 
with  these  values  as  well. 

Line  250  switches  into  multi- 
color mode.  We're  ready  to  print, 
and  that's  what  we  do  in  lines  300  to 
370.  Each  line  is  centered  on  the 
screen:  The  program  calculates  the 
number  of  empty  spaces  on  the  line 
(variable  T)  and  then  TABs  half  that 
distance  to  center  the  message.  If  the 
flag  X  shows  that  we  want  reverse 
video,  the  program  activates  it  by 
printing  CHR$(18)  in  line  350. 

Lines  400  to  the  end  cycle  the 
background  4  color  register  through 
a  range  of  values  so  the  background 
behind  the  message  COMMODORE 
EXTENDED  COLOR  changes  con- 
tinually. When  the  program  is  fin- 
ished, the  POKE  in  line  450  turns  off 
extended  color  mode  and  returns 
the  display  to  normal.  It's'  interest- 
ing to  see  the  characters  assume 
their  true  identities  as  the  program 
terminates. 

Problems  And  Challenges 

In  the  above  example,  we've  used 
only  one  printing  color — black.  In 
fact,  you  can  choose  as  many  as  you 


want  to  generate  very  effective 
"posters."  We've  all  noticed  that 
some  colors  work  together  better 
than  others,  so  you  may  try  various 
combinations  for  the  best  effect. 

For  alphabetic  characters  and 
spaces,  it's  easy  to  find  the  equiva- 
lent SHIFTed  character:  Just  hold 
down  the  SHIFT  key  and  you've  got 
it.  It's  a  challenge,  however,  to  find 
some  of  the  SHIFTed  equivalents  of 
punctuation  and  numeric  keys.  I 
won't  give  the  game  away  by  telling 
you  the  special  combinations,  but 
here's  a  hint.  Activate  extended 
color  mode  and  then  try  pressing 
keys  while  holding  down  the  Com- 
modore logo  key.  Make  a  note  of 
what  you  find  so  you  can  generate 
the  characters  later. 

Extended  color  mode  deserves 
more  attention.  With  a  little  artistry 
you  can  divide  the  screen  into  differ- 
ent colored  windows  for  more  dy- 
namic and  colorful  graphic  effects. 

Pleose  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  these  listings. 

Program  1 :  Extended  Color 
Mode  For  Commodore  64 

100  DATA  "HELLO ",0 

110  DATA  "welcome! SHIFT-SPACE  1 

TO{ SHIFT-SPACE jTHE" , 0 
120  DATA  "WONDERFUL  WORLD  OF", 

1 
130  DATA  "COMMODORE 

{ SHIFT-SPACE ) EXTENDED 

( SHIFT-SPACE  icOLOR'Tr 
140  DATA  "PRESS  AMY  KEY  TO  QUI 

T",0 
150  DATA  "X",0 
200  PRINTCHR?(142)CHR?(147)CHR 

5(144) 
210  POKE53281,l 
220  POKE53282,2 
230  POKE53283,3 
240  POKE53284,4 
250  POKE53265,91 
300  PRINT 
310  READX?,X 
320  IFX?="X"GOTO400 
330  T=40-LEN(X$) 
340  PRINTTAB(T/2) ; 
350  IFX=1THENPRINTCHR$(18) ; 
360  PRINTXS 
370  GOTO 3 00 
400  C=3 

410  C=C+1 :IFC>15THENC=2 
420  POKE53284,C 
430  FORJ=1TO1000:NEXTJ 
440  GETX5:IFX$=""GOTO410 
450  POKE53265,27 

Program  2:  Plu$/4  and 
Commodore  16  Modifications 

210  POKE65301,113 

220  POKE65302,82 

230  POKE65303,83 

240  POKE65304,84 

250  POKE65286,91 

420  POKE65304,C  _ 

450  POKE65286,27  © 
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HARMONY  VIDEO  &  COMPUTERS 

2357CONEYISLANDAVE..  BROOKLYN,  NY    11223 
a00.VIDE084OB»00J4ll144OR7ie627l000 


Learn  How  to  Program 

In  BASIC  at  Home 

In  Your  Spare  Time 

...NO  COMPUTER  NEEDED  TO  START 


No  Previous  Experience  Needed 


Now  you  can  team  il  all' 
Computer  programming... 
computer  applications. -- 
computer  games. ..every- 
thing you  ever  wanted  to 
know  about  computer 
operation!  Write  your  own 
computer  programs  Or 
use  hundreds  of  pro- 
grams already  available... 
budgeting,  real  eslale. 
bookkeeping,  expenses, 
taxes,  stiopping  lists, 
phone  numbers,  routing... 
even  foreign  languages 
and  graphics. 

lEARN  IT  ALL...IBM,  APPLE.  COIMMODORE.  THS  and  MORE! 
Whether  or  not  you  have  your  own  computer,  our 
independent  study  program  shows  you  step-by-slep 
how  10  program  in  BASIC,  the  most  commonly  used 
computer  language.  All  BASIC  Programming  is  simi- 
lar. So  once  you  learn  our  easy  system,  you'll  under- 
stand how  to  use  and  program  on  almost  any  brand 

of  personai  computer.  Senil  loday  tor  tree  lads  and 
color  broi;hure...a  complete  Jnlormation  package.   :: 


Coirptiter  Training,  Dmuus 

Scranton,  Pennsylvania  18515 
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Rush  me  free  inlormalion  how  1  can  learn  how  to  program  in 
BASIC  at  home  in  spare  Ume  I  understand  I  am  under  no 
ot)l»gatJor  and  no  salesman  will  vjsii  me, 


-Agc_ 


Cily  Stale  2ip_ 
PtumeNiLt 


Trusted  Software  an 


LANGUAGE  SOFTWARE 


FOR  COMMODORE  COMPUTERS 


ADA  TRAINING  COURSE 

Teaches  you  the  language  of  ihc  future. 
Comprehensive  subset  of  language. 
Includes:  editor;  syntax  checker, 
compiler;  assembler;  disassembler, 
handbook.  $59.95 

ASSEMBLER/MONITOR-64 

Macro  a.sscmblcr  and  extended  monitor. 
Supports  all  standard  functions  plus 
floating  point  constants  Monitor 
supports  bank  switching,  quick  trace, 
single  step,  more.  $39.95 

BASIC  COMPILER  64 

Compiles  complete  BASIC  language 
into  either  fast  6510  machine  language 
and/or  compact  spcedcodc.  Supports 
overlays  and  many  extended  BASIC 
commands.  $39.95 


C  LANGUAGE  COMPILER 

Full  compiler  per  Kcmighan  &  Ritchie 
standard,  but  without  bit  fields.  Includes 
powerful  editor  (41K  source  file);  com- 
piler (6510  code),  library  (supports  many 
functions)  and  linker.        NEW!      $79.95 


REFERENCE  BOOKS 


FORTH-64    LANGUAGE 

Based  on  Forth  79  (+  parts  of  '83). 
Supports  hires  graphics  and  sound 
synthesizer.  Full  screen  editor, 
programming  tools,  assembler,  samples, 
handbook.  NEW!    $39.95 

MASTER-64 

Professional  development  package  for 
serious  applications.  Indexed  file  sys- 
tem, full  screen  &  printer  management, 
programmer's  aid,  multiprccision  nrath, 
royalty-free  runtime,  more.  $39.95 
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PASCAL-64 

Full  Pascal  supports  graphics,  sprites, 
file  management,  more.  Supports 
pointers,  dynamic  memory  man- 
agement, machine  language.  Compiles 
to  fast  6510  machine  code.  $39.95 


Pascal 


VIDEO  BASIC-64 

Add  50+  graphic,  sound  and  utility 
commands  to  your  programs  with  this 
super  development  package.  Free 
distribution  of  RUNTIME  version  -  no 
royalties!  $59.95 


XREF»64      Basic  cross-reference 

Indispensible  tool  for  BASIC  pro- 
grammer. Cross-references  all  refer- 
ences to  variables,  constants  and  line 
numbers.  Sorts  them  into  alphabetical 
order  for  convenient  uses.  $17.95 


|XREF-64    I 

Ih 


ANATOMY  OF  C-64  Insider's  guide  to 
llic  '64  inlcmals.  Graptiics,  sound,  I/O, 
kemal,  memory  maps,  more.  Complete 
commenled  ROM  listings.   300pp  $19.95 

ANATOMY    OF   1541   DRIVE  Best 

handtMok  on  floppy  explains  alt.  Many 
examples  and  utitilies.  Fully  commenled 
1S4I  ROM  listings.  320pp      SI9.9S 

MACHINE  LANGUAGE  C-64  Learn 
6510  code  write  fast  programs.  Many 
samples  &  listings  for  complete  assernbler, 
monitor,  simulator.  200pp     $14.95 

GRAPHICS  BOOK  C-64  -best  ref 
crcnce  covers  basic  and  advanced  graphics. 
Sprites,  animation,  Hires,  Multicolor, 
lighlpcn,  3D-grapliics,  IRQ,  CAD,  pro- 
jections, curves, more.        350pp     $19.95 


TRICKS    &  TIPS   FOR  C-64     Col 

ection  of  easy-to-use  techniques:  advanced 
graphics,  improved  data  input,  enhanced 
BASIC,   CP/M,  more.       275pp     $19.95 

1541   REPAIR  &   MAINTENANCE 

Handbook  describes  the  disk  drive  hard- 
ware. Includes  schematics  and  techniques  to 
keep  1541  running.  200pp     $19.95 

ADVANCED  MACHINE  LANGUAGE 

Not  covered  elsewhere:  -  video  controller, 
inlcmipls,  timers,  clocks,  I/O,  real  time, 
extended  BASIC,  more.    210pp     $14.95 

PRINTER  BOOK  C-64/V1C-20 
Understand  Commodore;  Epson-compatible 
printers;  1520  plotter.  Pocked:  utilities;  gra- 
phics dump;  3D.plott:  commented  MPS801 
ROM   listings,  more.        330pp     $19.95 


PRODUCTIVITY  TOOLS 
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CHARTPAK-64 

MAKE  YOUR  OWN  CHARTS... 

Professional  quality  charts  and  graphs  instantly. 
Easy-to-use  menus.  8  chart  formats.  Two  size 
hardcopy.  Accepts  data  from  Muttiplan, 
CalcResuU.  Supports  statistical  functions,  $39.95 

Also  available: 

CHARTPLOT-1S20  Hne  output 

to  inexpensive  1520  plotter.  $39.95 

CHARTPLOT-64  unsurpassed 

quality  charts  on  most  XY-plotters.  $*4.95 
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XPER-64  ,.^'- 

SOFTWARE  THAT  LEARNS...        ''* 

XPER  is  the  first  expert  system  for  the  C-64  and 
C-128.  Ordinary  data  bases  afe  good  for  repro- 
ducing facts,  but  by  using  XPER  you  can  derive 
knowledge  from  a  mountain  of  facts  and  make 
expert  decisions.  You  first  build  the  information 
into  your  luiowtedge  base  using  XPER's  simple 
loading  prccedurcs,  Then,  by  using  very  efficient 
searching  lechniques  XPER  can  easily  guide  you 
through  (he  most  complex  decision  making 
criteria.  Full  reporting.  Currently  usca  by 
scientists,  doctors  and  professionals.  $59.95 
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CADPAK-64 

DETAIL  YOUR  DESIGNS.... 

Superb  lightpen  design  toot.  Exact  placement 
using  Accu-Z'ouJ  positioning;  2  complete  screens; 
draw  LINES,  BOXes,  CIRCLES,  ELLIPSES 
pattern  FlLLing;  freeharvd  DRAW;  screen  COPY; 
ZOOM  for  deuil.  Two  size  hard-copy.  Requires 
good  qiulity  lightpen.  $49.95 


Authoritative  booics 


FROM  ABACUS  SOFTWARE 
...A  NAME  YOU  CAN  COUNT  ON 


SPECIAL  FEATURE 
POWER  PLAN-64 


Optional  Diskettes 
for  books 

For  your  convenience,  the  programs 
contained  In  each  of  our  books  are  available 
on  diskette  to  save  you  lime  entering  them 
from  your  keytxianl.  Specify  name  of  book 


when  ordering. 


SCIENCE/ENGINEERING  ON  C-64 

In  depth  intro  to  computers  in  science. 
Topics:  chemistry,  physics,  biology,  astro- 
nomy, electronics,  others.  350pp  $19.95 

CASSETTE     BOOK     C-64/VIC-20 

Comprehensive  guide;  many  sample  pro- 
grams. High  speed  operating  system-fast 
file  loading  and  savin''.       22Spp   $14,95 

IDEAS  FOR  USE  ON  C-64  Themes: 
auto  expenses,  calculator,  recipe  file,  stock 
lists,  diet  planner,  window  advertising, 
others.  Includes  listings.     200pp   $12.95 

COMPILER  BOOK  C-64/C-12S  All 
you  need  to  know  about  compilers:  how 
they  work;  designing  and  writing  your  own; 
generating  machine  code.  With  working 
example  compiler.  300pp   $19.95 


$14.95  each 
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ADVENTURE  GAMEWHITER'i  Hindbook 

Sicp-by-step  guide  to  designing  and  writing 
your  own  adventure  games.  With  automated 
adventure  game  generator.  2CK)pp  $14.95 

CAD   BOOK   for   C-64/C.128    Intfo- 

duciion  to  computer  aided  design.  2D  and 
3D,  reflection,  zooming,  macros.  Samples 
use  SIMON'S  Basic.         250pp     $19.95 

MORE  TRICKS  &  TIPS  Dozens  of 
moi?  helpful  programming  techniques:  soft- 
ware protection;  new  BASIC  commands; 
intemipis;  ROM  routines;  the  KERNAL, 
hardware  lips,  etc.  2S0pp     $19.95 
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This  powerful  spreadsheet  includes  buill-in  graphics  SO 
you  can  display  your  important  data  in  chart  formal. 
Designed  For  both  novice  and  advanced  user.  Beginners 
can  rely  on  more  than  90  HELP  SCREENS  for 
guidance.The  200-page  harjdbook  has  easy-to-follow 
tutorials  to  lead  you  Uiough  all  of  POWER  PLAN-64's 
features.  Advanced  users  will  appreciate  POWER 
PLAN'S  short-cut  commands. 

For  complex  spreadsheets,  you  can  use  POWER  PLAN- 
64's  impressive  features  such  as  cell  formatting, 
controllable  calculation  mode,  text  formatting,  cell 
protection,  windowing,  math  functions,  row  and  column 
copy  and  sort,  and  more.  When  you've  completed  your 
spreadsheet  work,  you  can  quickly  display  your  results  in 
graphical  format  on  a  variety  of  charts.  Supports  2D  and 
3D  bar,  line  and  pie  charts,  $49.95 


TAS-64 

CHART  YOUR  OWN  STOCKS... 

Sophisticated  technical  analysis  charting  package 
for  serious  investor.  Capture  data  from  DJN/RS 
or  Warner  Services  or  enter  and  edit  your  data.  7 
moving  averages,  3  oscillators,  trading  bands, 
least  squares,  5  volume  indicators,  relative  charts, 
much  more.  Two  size  hardcopy.  $84.95 


DATAMAT-64 

ORGANIZE  YOUR  DATA... 

Powerful,  easy-to-use  data  management  package 
uses  menu  selections.  Free  form  design:  50 
fields/record;  2000  records/disk.  Son  on  mul- 
tiple fields  in  any  combination.  Complete  selec- 
tion and  formatting  for  printing  reports.     $39.95 
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TEXTOMAT-64 

WORD  PROCESSING 

Flexible  wordproccssor  displays  40  or  80  columns 
with  horizontal  scrolling.  Menu  selections  make 
TEXTOMAT  easy  to  use.  Quickly  move  from 
editing  to  formatting  to  merging  to  utilities. 
Supports  virtually  any  printer.  Can  support 
foreign  languages.  $39.95 
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QUICKCOPY  V2.0  ,^^' 

PROTECT    Your  DATA  ...  ^ 

Backup  your  valuable  data  with  the  fastest  disk 
copier  we've  seen  to  date.  Copies  entire  disk  in 
2.5  minutes  on  two  or  3.5  minutes  on  one  1541, 
Very  useful  utility.  $19.95 


ORDERING  INFORMATION 
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Call  now  for  the  name  of  your  nearest  dealer 
ISHHUiliil 


Abacus  liBHHHil  Software 

P.O.  Box  721 1    Grand  Rapids,  Michigan  4951 0 


V/SA* 


For  postage  and  handling  include  $4.00  per  order.  Forergn  orders  include  $8.00  par 
item.  Money  o/der  and  checks  in  U.S.  Dollars  only.  Mastercard,  VISA  and  American 
Express  accepted.  Michigan  residents  please  include  4%  sales  tax. 

For  fast  service  call    (616)  241-55'tO       Telex  709-101 

For  tree  catalog,  please  return  this  coupon  to 
Abacus  Software,  P,0,  Box  7211,  Grand  Rapids,  Ml  49510 

PHONE:  (616)  241 -551 0 

Name  

Address   

City  

State zip  


Atari  LIST  Scroller 


Royce  Decker 


Scroll  BASIC  listings  up  or  down  the 
screen  with  this  short  program  for 
Atari  400/800,  XL,  and  XE  computers. 


The  LIST  command  in  Atari  BASIC 
is  fairly  versatile,  allowing  you  to  list 
all  or  part  of  a  program  while  you 
press  CTRL-1  to  pause.  But  once  the 
listing  begins,  you  can  only  scroll 
forward  to  higher  line  numbers. 
Many  times  it  would  be  convenient 
to  scroll  backward  as  well  to  exam- 
ine previous  lines, 

"Atari  LIST  Scroller"  lets  you 
scroll  a  listing  in  either  direction 
with  single-key  control.  This  feature 
is  especially  useful  for  proofreading 
a  long  program.  Type  Atari  LIST 
Scroller  as  listed  below,  and  save  it 
on  disk  or  tape  with  the  LIST  com- 
mand instead  of  SAVE  or  CSAVE 
(type  LlSr'C"  for  tape  or  LIST"D: 
filename"  for  disk).  It  is  essential  that 
you  save  the  utility  in  this  format  so 
you  can  merge  it  with  your  BASIC 
program  later. 

Now,  LOAD  or  ENTER  the 
BASIC  program  you  wish  to  exam- 
ine. Then  call  up  LIST  Scroller  by 
typing  ENTER"C"  for  tape  or  ENTER 
"D-.filename"  for  disk.  This  loads  the 
utility  into  memory  without  disturb- 
ing the  first  program.  After  you  type 
RUN,  LIST  Scroller  prompts  you  to 
enter  a  line  number.  The  listing  be- 
gins at  that  line  and  continues  for- 
ward until  the  screen  is  full  or  the 
program  ends.  The  listing  is  double- 
spaced  to  improve  readability. 

To  scroll  the  listing  up  or  down, 
press  the  T  or  I  key  (you  need  not 
hold  down  the  CTRL  key  while 
pressing  these  keys).  If  you  try  to 
scroll  back  before  the  first  line  in  the 
program,  LIST  Scroller  pauses.  If 
you  try  to  scroll  beyond  the  highest 
line  number,  LIST  Scroller  informs 
you  that  you've  reached  the  end. 
You  can  also  reach  distant  portions 
of  the  program  quickly:  Press  the 
space  bar  and  answer  the  prompt  by 
entering  a  new  line  number.  The 
listing  continues  from  that  point. 

LIST  Scroller  ignores  line  0  and 
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lines  above  32699  (otherwise  it 
would  list  itself).  If  your  BASIC  pro- 
gram uses  these  line  numbers,  LIST 
Scroller  automatically  replaces  them 
when  you  ENTER  it  from  disk  or 
tape. 

To  edit  your  BASIC  program, 
exit  LIST  Scroller  by  pressing  the 
BREAK  key.  Reenter  it  by  typing 
RUN.  Keep  in  mind  that  LIST 
Scroller  appends  itself  to  your  pro- 
gram: If  you  want  to  save  your  pro- 
gram after  using  LIST  Scroller, 
delete  line  0  and  lines  32701-32741 
before  saving,  or  save  your  program 
with  this  command: 

LIST"C",1,32699 

(for  tape) 

UST"D'.filename"X31699 

(for  disk) 

Of  course,  this  means  youTl  have  to 
load  it  with  the  ENTER  command 
instead  of  LOAD  or  CLOAD. 

To  run  your  program  without 
activating  LIST  Scroller,  type  GOTO 
the  first  line  number  in  your  pro- 
gram. Be  aware,  however,  that  un- 
less your  program  is  a  closed  loop, 
the  computer  will  try  to  execute  the 
LIST  Scroller  routine  after  your  pro- 
gram is  finished. 

Atari  LIST  Scroller 

Please  refer  to  "COMputeI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 
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1 : GDTD  3270B 
Ffl  32709  IF  Z<0  THEN  Z=0 
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HL32713  IF  PEEK  (764)  =15  THE 

N  32716 
CS32714  IF  PEEK<764)=33  THE 

N     Z=0:PDSITION     0,23 

: GOTO     32707 
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AH32736  Z  =  Z  +  1:LIST  L  (  Z  )  :  PGK 
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NL  32740  FOR  D  =  0  TO  4:  IF  PEE 

K(F)<>0  THEN  T(D)=P 

EEK (F) : F=F+1 : NEXT     D 
0132741     FDR     E  =  0     TO     D-1:LNUM 

=LNUM+INT ( (T (E) -16) 
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Viewports  In  IBM  BASIC 


John  Kearney 


Much  of  today's  commercial  software 
offers  innovative  graphics  effects  like 
multiple  u'iiidoivs  and  split  screens. 
But  with  a  little-known  statement  in 
IBM  BASICA  and  PCjr  Cartridge 
BASIC,  you  can  build  similar  features 
i?ito  your  own  programs. 


Lots  of  power  is  hidden  within  the 
depths  of  IBM  BASIC.  So  many 
statements,  commands,  and  func- 
tions are  tucked  away  that  it's  diffi- 
cult to  assimilate  them  all  without 


studying  the  manual  from  cover  to 
cover — a  tedious  task.  It's  easy, 
therefore,  to  miss  some  really  useful 
features  that  can  significantly  en- 
hance your  programs. 

One  of  these  is  the  VIEW  state- 
ment. IBM  devotes  no  less  than  five 
pages  and  two  good  examples  to 
explain  this  statement  in  the  PCjr 
Cartridge  BASIC  manual,  but  even 
with  that,  many  mysteries  remain. 

The  VIEW  statement  lets  you 
segment  or  define  an  almost  unlim- 
ited number  of  rectangular  sections 
on  the  screen.  Each  viewport,  as  it  is 
called,  becomes  a  separate  window 


with  its  own  graphics  and  text,  like  a 
smaller  screen  pasted  over  the  main 
screen.  Viewports  can  exist  indepen- 
dently of  each  other  and  can  be  of 
any  size  within  the  dimensions  of 
the  screen.  Some  can  even  be  invisi- 
ble! What  makes  viewports  truly 
amazing  is  the  way  they  handle 
graphics. 

To  see  for  yourself  the  versatil- 
ity of  viewports,  try  running  the  ex- 
ample programs  following  this 
article.  For  example.  Program  1  (for 
the  PCjr  only)  shows  off  the  variety 
of  viewport  sizes,  colors,  and  bor- 
ders. By  examining  these  programs 


Program  ]  shows  viewports  of  various 
sizes  with  graphics  in  each. 


Program  2  demonstrates  the  automatic 
scaling  capabilities  of  viewports. 


Program  3  shows  how  concentric  circles 
are  automatically  scaled  only  within  the 
small  invisible  viewport  at  the  center  of 
the  screen. 
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and  comparing  them  with  the  re- 
sults when  they're  run,  you'll  see 
how  easy  it  is  to  use  the  VIEW 
statement. 

A  Bird's-Eye  VIEW 

With  VIEW,  you  can  locate  a  view- 
port anywhere  on  the  screen,  adjust 
the  size  of  the  viewport,  fill  the 
viewport  with  color,  and  assign  a 
color  to  the  surrounding  border 
lines. 

Here's  the  basic  format  of  the 
VIEW  statement: 

VIEW  [[SCREEN]  I(xl,yl)-{x2,y2) 
[.[attribute]  [.[boundary]]]]  ] 

Let's  explain  these  parameters 
one  by  one — they're  not  as  difficult 
as  they  may  appear. 

The  first  step  before  using 
VIEW  at  all  is  to  declare  the  screen 
mode,  VIEW  works  only  in  the 
graphics  modes:  SCREEN  1  or 
SCREEN  2  in  BASICA  on  the  IBM 
PC,  and  SCREEN  1  through 
SCREEN  6  in  Cartridge  BASIC  on 
the  PCjr.  SCREEN  0  is  a  text  mode 
and  can't  be  used  with  VIEW. 

At  first  glance,  you  may  think 
the  SCREEN  parameter  in  the  VIEW 
statement  lets  you  specify  the  screen 
mode,  but  it  doesn't.  Actually,  this 
parameter  determines  how  other 
graphics  statements  affect  the  view- 
ports and  main  screen  background, 
so  let's  skip  this  for  a  moment. 

After  declaring  the  screen  mode 
with  a  separate  SCREEN  statement, 
you  define  the  size  of  the  viewport 
by  specifying  two  sets  of  screen  co- 
ordinates. The  coordinates,  natu- 
rally, correspond  to  the  resolution 
available  in  the  graphics  mode  you 
selected.  For  example,  SCREEN  1 
has  320  horizontal  pixels  by  200 
vertical  pixels,  so  the  viewport  must 
fit  vrithin  this  range  (see  Table  1), 
Remember  that  screen  coordinates 
are  numbered  beginning  with  0,  so 
the  actual  range  of  coordinates  in 
SCREEN  1  would  be  0  to  319  hori- 
zontally and  0  to  199  vertically. 


Table  1 :  IBM  Graphics  Modes 


Mode 

Resolution 

Colo 

SCREEN  1 

320  X  200 

4 

SCREEN  2 

640  X  200 

2 

SCREEN  3* 

160  X  200 

16 

SCREEN  4* 

320  X  200 

4 

SCREEN  5* 

320  X  200 

16 

SCREEN  6* 

640  X  200 

4 

The  first  set  of  coordinates 
(xl.yl)  defines  the  position  of  the 
viewport's  upper-left  comer;  xl  is 
the  horizontal  coordinate  and  yl  is 
the  vertical  coordinate.  The  second 
set  of  coordinates  (x2,y2)  defines  the 
lower-right  comer.  So,  if  you  want  a 
very  large  viewport  in  SCREEN  1, 
you  might  specify; 
VIEW  (4,1) -(300,100) 

Or,  for  a  very  small  viewport,  you 
could  specify: 

VIEW  (4,1) -(10,12) 

Making  It  Visible 

If  you  actually  enter  the  above  state- 
ments, you  won't  see  anything  hap- 
pen. The  viewport  is  there,  but  it's 
invisible.  To  make  it  appear,  you 
have  to  set  the  viewport  apart  from 
the  main  screen  background  by  fill- 
ing it  with  color  or  surrounding  it 
with  a  colored  border.  That's  the 
purpose  of  the  last  two  parameters 
of  the  VIEW  statement. 


Table  2: 

Attribute  Color 

Numbers 

0  black 

8    gray 

1  blue 

9    light  blue 

2  green 

10  light  green 

3  cyan 

11  light  cyan 

4  red 

12  light  red 

5  magenta 

13  light  magenta 

6  brown 

14  yellow 

7  while 

15  bright  while 

'Available   only    in    PCjr   Cartridge   BASIC. 
SCREEN  5  and  6  require  at  least  128K  RAM. 
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The  attribute  parameter  lets  you 
fill  the  viewport  with  the  color  as- 
signed to  that  attribute  number.  The 
boundary  parameter  lets  you  draw  a 
border  around  the  viewport  with  the 
color  assigned  to  the  attribute  num- 
ber. Attribute  numbers  can  range 
from  0  to  15,  but  of  course  this  de- 
pends on  the  number  of  colors  avail- 
able in  the  screen  mode  you  choose 
(see  your  BASIC  manual).  For  in- 
stance. Table  1  shows  that  SCREEN 
1  is  a  four-color  mode,  so  it  has  four 
attributes,  numbered  0  to  3.  Table  2 
shows  which  colors  are  assigned  to 
which  attributes.  Keep  in  mind  that 
you  can  assign  any  color  to  any  attri- 
bute number  with  the  PALETTE 
and  PALETTE  USING  statements. 

Here  are  some  examples: 

VIEW  (4,1) -(300,100) 

(Attribute  paramtier  is  omitted,  so  view- 
port defaults  to  same  color  as  screen, 
Tendering  viewport  invisible.) 

VIEW  (4,1)-(300,100),4,14 

(Red  viewport  with  yelloio  border.) 


VIEW  (4,1)-(300,100),S,7 

(hAagenta  viewport  with  white  border.) 

Once  a  viewport  is  defined  and 
activated,  the  coordinates  inside  the 
viewport  are  no  longer  the  same  as 
the  main  screen  coordinates.  We'll 
explain  this  in  a  moment. 

Automatic  Scaling 

After  you've  created  a  viewport,  you 
can  print  text  or  draw  graphics  in- 
side it.  Since  the  viewport  is  smaller 
than  the  main  screen,  however,  a 
full-size  graphics  figure  may  not  fit 
within  its  boundaries.  You  have  to 
scale  down  the  size  of  the  figure  to 
avoid  what's  called  a  dipping  effect 
(the  parts  of  the  figure  which  don't 
fit  are  cut  off,  or  clipped,  within  the 
viewport).  Ordinarily,  this  scaling 
requires  manual  calculations.  But 
another  IBM  BASIC  statement — 
WINDOW— can  help  scale  the 
graphics  automatically. 

With  WINDOW,  each  viewport 
acts  as  a  microcosm  of  the  main 
screen,  so  the  computer  automati- 
cally fits  the  graphics  into  the  view- 
port. This  scaling  effect  is 
demonstrated  by  Programs  1  and  2 
(see  photos).  For  instance.  Program 
2  uses  identical  graphics  subroutines 
for  each  viewport,  even  though  the 
viewports  are  different  sizes. 

A  full  explanation  of  all  the 
possibilities  of  WINDOW  and  VIEW 
is  beyond  the  scope  of  this  article. 
However,  for  scaling  purposes  with 
viewports,  you  can  simply  insert 
this  WINDOW  statement  prior  to 
the  VIEW  statement: 

WINDOW  SCREEN  (xl,yl)-(x2,y2) 

where  xl,yl  are  the  upper-left  cor- 
ner coordinates  of  the  graphics 
mode  (0,0),  and  x2,y2  are  the  lower- 
right  corner  coordinates  (for  inf- 
stance,  319,199  in  SCREEN  1). 

When  you  set  up  a  viewport, 
the  coordinates  within  its  bound- 
aries no  longer  correspond  to  the 
coordinates  of  the  main  screen.  In- 
stead, the  coordinates  for  the  upper- 
left  comer  of  any  viewport  are  (0,0), 
no  matter  where  the  viewport  is 
located. 

There  may  be  times  when  you 
don't  want  the  automatic-scaling 
feature.  You  can  defeat  it  simply  by 
leaving  out  the  WINDOW  state- 
ment. You  can  also  experiment  with 
another  variation  of  the  VIEW  state- 
ment by  including  the  SCREEN  pa- 
rameter mentioned  earlier.   When 


SCREEN  is  included,  all  viewport 
coordinates  coincide  with  the  main 
screen  coordinates.  That  is,  the 
upper-left  corner  coordinates  corre- 
spond to  the  main  screen  coordi- 
nates at  that  point,  rather  than  0,0. 
Points  plotted  outside  the  viewport 
boundaries  won't  appear  on  the 
screen. 

Active  And  Inactive 
Viewports 

Like  other  screen  statements,  the 
CLS  (clear-screen)  statement  works 
in  an  interesting  way  with  VIEW. 
When  your  program  is  executing, 
the  viewport  most  recently  defined 
is  your  current  and  only  active  view- 
port. All  other  viewports  are  inac- 
tive, as  is  the  main  screen.  As  a 
result,  CLS  clears  only  the  area  in- 
side the  active  viewport.  This  may 
lead  to  some  fascinating  graphics 
effects. 

If  your  program  no  longer  re- 
quires viewports,  changing  screen 
modes  with  the  SCREEN  statement 
removes  them.  Likewise,  a  VIEW 
statement  without  any  parameters 
followed  by  CLS  defines  the  entire 
screen  as  a  viewport  and  clears  it, 
accomplishing  basically  the  same 
thing. 

Most  of  the  BASIC  graphics 
statements  work  with  viewports, 
but  there  are  a  few  exceptions.  Some 
statements  don't  automatically  scale 
themselves  to  fit  within  the  view- 
port's boundaries.  Those  that  work 
include  GET,  PAINT,  PRESET, 
PMAP,  PUT,  PSET,  POINT,  LINE, 
VIEW,  and  WINDOW. 

Statements  that  deserve  more 
attention  are  CIRCLE  (the  size  of  the 
circle  does  not  automatically  scale  or 
change  shape  if  different  viewports 
are  the  same  width);  and  DRAW, 
LOCATE,  and  PRINT,  which  aren't 
restricted  to  the  area  of  an  active 
viewport. 

Some  of  these  effects  are  dem- 
onstrated by  Program  3.  It  starts  by 
executing  a  subroutine  that  draws  a 
series  of  concentric  circles  without 
any  viewports.  Next  it  defines  five 
viewports  with  borders  and  clears 
them  with  CLS.  At  this  point,  only 
the  final  viewport  is  active  and  capa- 
ble of  accepting  graphics  com- 
mands. Then  the  program  repeats 
the  same  subroutine  that  draws  the 
circles,  showing  that  only  parts  of 
the  circles  appear  in  the  active 
viewport. 


Immediately  afterward,  the 
program  executes  a  WINDOW  state- 
ment and  defines  a  very  small  in- 
visible viewport  at  the  center  of  the 
screen.  Then  it  repeats  the  circles 
subroutine  again,  showing  how  the 
circles  are  scaled  down  to  the  size  of 
the  single  invisible  viewport. 


Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  tfiese  listings 


Program  1: 
Demo 


PCjr  Viewport 


NA    10    'Initialize 

JO   20    ' 

9B  30  SCREEN  3: CLS: KEY  OFF 

DF  40  WINDOW  SCREEN  <0,0)- (159,1 

99) 
JB  50  * 

BC  h0    'Define   views 
JD  70    ' 

OJ   80    VIEW     (10,  1)-(100,  160)  ,,5 
OH   90    VIEW     (70,70>-(100, 160), ,9 
JD    100    VIEW     (110,40)-(150, 160) ,4 

,  10 
G6    110    ' 

EH  120  'Activate  viewports 
HK  130  ' 
FP  140  VIEW  (10, 1>-(100, 160)!GDS 

UB  210 
CP  150  VIEW  (70,70)-(100,160)sGO 

SUB  210 
it    160  VIEW  (110,40)-(150, 160>:G 

OSUB  210 
FH  170  GOTO  170 
HE  1B0  ' 

on  190  'Graphics  subroutine 
BF  200  ' 

FO  210  CIRCLE(4S,80> ,50,2 
IC  220  FDR  X=l  TO  199 
SD  230  PSET(X,X)  ,3 
EG  240  NEXT  X 
He  250  RETURN 


Program  2:  Automatic  View- 
port Scaling 

IC    10    '     Initialize 

10  20    ' 

nr  30  CLSiKEY  OFF 

KP  40  SCREEN  1 

EN  50  COLOR  0,  1 

SB  60  WINDOW  SCREEN  (0,0)-(319,l 

99) 
AB  70  L»="BAR  CHART  VIEW  COMPARI 

SON" 
JO  80  GOSUB  340 
KB  90  LOCATE  22, 2:  PRINT  "Using  s 

ame  input  data  and  subrout 

ine" 
GE  100  ' 

DL  110  VIEW(20,60)-(80,150),,3 
EL  120  GOSUB  230 

CP  130  VIEW(90,20)-<120, 150), ,3 
LP  140  RESTORE  380 
S!  150  GOSUB  230 

BL  160  VIEW(l30,a0)-(299,150) , ,3 
LF  170  RESTORE  380 
EN  180  GOSUB  230 
HB  190  GOTO  190 
BF  200  ' 

00  210  '  Graphics  subroutine 
HJ  220  ' 
n   230  READ  N 


Nf  240  DX=1/N:DDX=.75«DX»319:Y=1 

99 
m   250  FOR  1=0  TO  N-1 
CH  260  X=DX»I»319: 'multiply  -Frac 

tional  range  by  319  to  'fi 

t  coordinates  0-1  into  ac 

tual  grid  o-f  0-319 
HK  270  READ  D:  D=D/ 1  .  23:  *  scale  d 

to  fit  0-250  into  actual 

grid  of  0-199  (250/200=1. 

2> 
BJ  280  LINE  (X, Y)-(X+DDX,Y-D> ,2, 

BF 

NEXT  I 

RETURfl 


OK  290 

m  300 

HI  310 
HK  320 
HH  330 
CF  340 
Kft  350 
HJ  360 
HE  370 
DB  3S0 
IL  390 
LE  400 
il  410 
SD  420 

SK  430 

OF  440 


'  Center  titles 

LOCATE  1 , ( 40-LEN ( L» ) ) /2 

PRINT  L* 

RETURN 

DATA  24 

DATA  3.9,5.3,7.2,9.6 

DATA  12.9,17.0,33.2,31.4 

DATA  39,8,50.2,62-9,76.0 

DATA  92.0,105.7,102.8,101 

.7 

DATA  122.7,134.3,183.2,21 

1.0 

DATA  212.7,217.3,223.2,23 

1.0 


Program  3:  Viewport 
Variations 

IC   10    '     Initialize 

JO  20    ' 

FL  30  CLS: SCREEN  1 : KEY  OFF 

IP  40  GOSUB  330 

JB  50  • 

NI  60  '  Viewport  coordinates 

JD  70  ' 

Ofl  80  A1=8:A2=8: A3=52:A4=52 

BF  90  81=64: B2=BsB3=l 12:84=112 

HI  100  Cl=a:C2=66iC3=52:C4sl80 

BF  110  Dl=124:D2=a:D3=150:D4=180 

BB  120  E1=64:E2=124:E3=112:E4=18 

0 
CL  130  F1=140:F2=80:F3=180:F4=12 

0 
Ml  140  ' 

DF  150  '  Define  viewports 
HA  160  ' 
UN  170  VIEW  (A1,A2)-(A3,A4) , ,2:C 

LS 
CS  180  VIEW  <B1,B2)-(B3,B4),,1:C 

LS 
IF  190  VIEW  (C1,C2>-(C3,C4),,2:C 

LS 
KL  200  VIEW  (D1,D2)-<D3,D4),,1:C 

LS 
K  210  VIEW  (E1,E2>-<E3,E4),,2:C 

LS 
HJ  220  ' 
Pfl  230  VIEW  SCREEN (B1,B2)-(B3,B4 

) 
HL  240  eOSUB  330 
HP  250  ' 
FB  260  WINDOW  SCREEN  (0,  0)  -  (319,  1 

99) 
St  270  VIEW  (F1,F2)-(F3,F4) 
m   280  GOSUB  330 
in  290  GOTO  290 
B6  300  • 

LS  310  '  Circle  subroutine 
HK  320  ' 

EH  330  FOR  X=l  TO  100  STEP  4 
DD  340  CIRCLE  (160,  100),  X+60,  3 
HJ  350  NEXT  X 
NJ  360  RETURN  © 
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Apple  SpeedScript  3.0 
ProDOS  Converter 


Kevin  Martin,  Editorial  Programmer 


Last  month,  COMPUTE!  published  the 
Apple  version  of  the  popular  Speed- 
Script  3.0  word  processor  for  DOS  3.3. 
This  month  we  present  "ProDOS  Con- 
verter," a  program  that  modifies  the 
DOS  3.3  version  of  SpeedScript  to 
create  an  enhanced  ProDOS  version. 
It  works  on  any  Apple  U-series  com- 
puter with  at  least  64K  RAM,  a  disk 
drive,  and  the  ProDOS  operating 
system. 


Apple's  ProDOS  operating  system 
offers  a  considerable  improvement 
in  performance  and  utility  over  DOS 
3.3,  but  also  makes  things  a  little 
more  complicated.  ProDOS  uses 
and  lays  out  memory  in  a  different 
way  than  DOS  3.3,  so  many  DOS 
3.3  machine  language  programs  are 
not  compatible  with  ProDOS.  Also, 
many  DOS  3.3  functions  are  not 
supported  in  the  same  way  by  Pro- 
DOS.  This  is  enough  to  keep  the 
Apple  version  of  SpeedScript  3.0 
(COMPUTE!,  June  1985)  from  running 
with  ProDOS,  even  if  you  save  it  on 
a  ProDOS  disk. 

The  solution  is  "ProDOS  Con- 
verter," which  changes  an  existing 
copy  of  DOS  3.3  SpeedScript  into  a 
program  usable  with  ProDOS.  As  a 
bonus,  ProDOS  SpeedScript  gives 
you  lOK  more  text  memory  to  work 
with. 

Making  The  Conversion 

First,  you'll  need  to  type  in  Speed- 
Script  from  last  month's  issue,  if  you 
haven't  already.  We  also  offer  a  disk 
containing  all  the  Apple  programs 
published  in  June  (see  box),  which 
can  save  you  considerable  typing 
effort.  To  prepare  for  the  conver- 
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sion,  type  in  both  Program  1  and 
Program  2  below.  Program  1  is  a 
BASIC  program  that  makes  the 
changes  to  SpeedScript.  Program  2  is 
a  binary  file  that  must  be  typed  in 
with  "Apple  MLX"  (The  Apple  MLX 
program  was  published  in  the  same 
issue  as  SpeedScript  and  also  is 
included  on  the  June  disk).  When 
using  Apple  MLX  to  enter  the  Speed- 
Script  data,  you  have  to  enter  a  line 
of  POKEs  in  direct  mode  before 
loading  MLX.  This  is  not  necessary 
before  loading  MLX  to  enter  the  data 
from  Program  2.  Simply  load  and 
run  the  MLX  program. 

Apple  MLX  asks  you  for  the 
starting  and  ending  addresses  of  the 
program  you're  typing  in.  Enter 
3AF0  for  the  starting  address,  and 
3CBF  for  the  ending  address,  Next 
you'll  see  a  menu.  Press  E  to  enter 
data,  then  enter  3AF0  as  the  address 
at  which  to  begin  typing.  Program  2 
is  not  a  long  listing,  so  take  your 
time  and  be  careful.  MLX  asks  you 
to  retype  a  line  if  you  make  a  mis- 
take. When  you  finish,  you  return  to 
the  menu.  Press  S  to  save  the  file. 
Use  the  name  SPEEDSCRIPT2,  since 
this  is  the  filename  which  Program  1 
looks  for. 

After  you've  typed  in  the  pro- 
grams (you  may  want  to  make  back- 
up copies  of  them  on  another  disk 
for  security),  follow  these  step-by- 
step  instructions: 

1.  Load  and  run  the  ProDOS  "Filer" 
system  utilities  package,  or — if  you 
have  an  Apple  lie — boot  up  the  Pro- 
DOS  System  Utilities  disk. 

2.  From  the  Filer  main  menu,  select 
option  V  ("Volume  Commands"); 
then  from  the  Volume  Commands 


menu,  select  option  F  ("Format  a 
Volume").  If  you  are  using  the  lie, 
select  option  6  ("Format  a  Disk") 
from  the  System  Utilities  menu.  In- 
sert a  blank  disk  into  the  drive  and 
format  it  for  use  with  ProDOS.  Type 
in  SPEED. DATA  for  the  volume 
name,  or  just  press  RETURN  when 
asked  for  the  volume  name. 

3.  Select  option  F  ("File  Com- 
mands") from  the  Filer  main  menu, 
then  option  C  ("Copy  Files")  from 
the  File  Commands  menu — or 
choose  option  1  ("Copy  Files")  from 
the  lie  System  Utilities  menu — to 
copy  the  file  named  PRODOS  from 
the  ProDOS  master  disk  to  your 
newly  formatted  ProDOS  disk. 

4.  Now  copy  the  DOS  3.3  version  of 
SpeedScript  to  the  newly  formatted 
disk.  Even  if  you  typed  in  Speed- 
Script  and  saved  it  on  a  ProDOS 
disk,  go  ahead  and  copy  it  on  this 
disk  for  convenience.  Important: 
Make  sure  SpeedScript  is  saved  on 
the  ProDOS  disk  with  the  filename 
SPEEDSCRIPT. 

5.  Copy  ProDOS  Converter  Pro- 
grams 1  and  2  onto  the  same  disk 
with  SPEEDSCRIPT.  You  can  name 
Program  1  anything  you  like.  We 
used  the  name  PRODOS. MAKER. 

Be  sure  that  the  data  from  Program  2 
(entered  with  Apple  MLX)  is  named 
SPEEDSCRIPT2. 

6.  Verify  that  the  disk  contains  the 
following  files: 

PRODOS  The  ProDOS  operat- 

ing system 

SPEEDSCRIPT  The  DOS  3.3  version 

of  SpeedScript 

PRODOS. MAKER     Program  1,  the  BASIC 
ProDOS  Converter 
program 


The  Sider  10MB  hard  disk 


Decisions,  decisions.  First  you  had  to 
choose  between  Apple  and  IBM.  Now  \'ou 
have  to  decide  whicli  hard  disic  subsystem 
to  purchase-and  tiiey  all  seem  about  the 
same.  But  are  they? 

First  Class  Peripherals  can  make  }'our 
hard  disk  decision  a  lot  easier.  Because 
whether  you  use  an  .\pple  11+  or  He.,. or 
IB.\1  PC*'  or  .XT... we  offer  a  Sider  10  MB 
hard  disk  subsystem  just  right  for  all  your 
storage  needs. 

The  most  reliable,  affordable 
10  MB  hard  disk  on  the  market 

The  Sider  features  state-of-the-art  Win- 
chester disk  technolo};y.  Direct  booting 
without  floppies.  Self-contained  power  sup- 
ply .And  compatibility  with  the  most  pop- 
ular .Apple  or  IBM  software. 

In  addition,  the  Sider  is  plug  and 
play.  E^■erything  you  need  for  quick,  easy 
installation  is  included:  cable,  host  adapter, 
softwai^  and  manual. 

Built  to  last  by  Xebec 

The  Sider  has  won  ra\'e  reviews  for  its 

•Mu.si  contain  hard  disk  ROM, 


from  First  Class  Peripherals 

performance  and  reliability  That's  be- 
cause it's  manufactured  exclusively  for 
First  Class  Peripherals  by  Xebec,  the  in- 
dustry's leat'ing  manufactua-r  of  computer 
disk  dri\es  and  controllers.  And  it's  sold 
direct  to  you,  so  there  are  no  dealers  or 
distributors  to  hike  up  the  cost. 

Full  guarantee  and 
free  tech  hotline 

You  can  choose  your  Apple  or  IBM  Sider 
with  confidence.  Simply  order  and  use  )'our 
Sider  for  15  days.  If  you're  not  100% 
satisfied,  return  it  for  a  full  refund.  Keep  it. 
and  you'll  enjoy  a  full  one-year  limited 
warranty. . .  plus  access  to  our  toll-free  hot- 


line, should  you  ever  have  a  technical  or 
service  question. 

It's  easy  to  order  your  Sider 

The  Sider  is  priced  at  just  S695  for  the 
Apple  model... S795  for  the  IB.M.  Thafs 
hundreds  of  dollars  less  than  what  you'd 
L'x/K'Cl  to  /m  for  the  coniparahle  "big 
name"  models.  To  order,  use  the  coupon 
below. ,. or  for  faster  service,  order  by 
])hone  using  \'isa.  MasterCard  or  American 
Express.  Call  toll-free: 

1 800  538-1307 

Extension  702 


\ame 


I — I   IcS  J  please  send  me  the  Sider,  including  1(1  megabyte  liand  disii  drive,  host  adapter  card, 
calile.  oimplt'ie  installation  software  and  documentation  for  my:  D  Apple  11+  or  lie  D  IBM  PC  or  XT 

I  prefer  !o  pay  as  follows: 

D  I've  enclosed  niv  clieck  or  monev  order  for        

S695*  (S"<-)i'  for  IBM -compatible  Sider)  plus 

S15  shipping  and  handling,  payable  lo  First 

Class  Peripherals, 
n  Please  bill  die  following  credit  card  account 

for  SW5'  (,«;''4=;'  for  I liM- compatible  Sider) 

plus  S15  shipping  and  handling: 
D\ISA     n  MasterCard     D  American  Express 


Ai/i/rc's 


an 


SUilc 


Zip 


C(ird# 


Hxji  Diilc 


3579  Highway  50  East,  Carson  City,  NV  89701       Signaiiirt 


*  Residenis  of  CA.  NV  and  ?.\.  please  add  appropriace  sales  lax. 


'Ii'lt'phiiiu'  (area  code) 

.Mail  lo:  First  Class  Peripherals 

5579  Highway  50  East,  Carson  City,  NV  89701 


SPEEDSCRIPT2 


The  PtoDOS  Convert- 
er binary  file  (from 
Program  2} 


7.  You're  now  ready  to  convert  the 
DOS  3.3  version  of  SpeedScript  to 
ProDOS.  Run  Program  1  (PRO- 
DOS. MAKER).  It  reads  the  file 
SPEEDSCRIPT,  merges  it  with 
SPEEDSCRIPT2,  makes  some  mod- 
ifications, then  permits  you  to 
switch  disks  before  it  saves  a  new 
file  called  SS.SYSTEM.  We  recom- 
mend leaving  the  same  disk  in  the 
drive  the  first  time  you  perform  the 
conversion  process.  Later,  you  can 
use  ProDOS  Converter  to  create  ad- 
diHonal  copies  of  ProDOS  Speed- 
Script  on  other  disks,  or  simply  copy 
the  file  SS.SYSTEM  onto  a  backup 
disk  with  the  "Copy  Files"  utility.  If 
you  want  the  backups  to  be  Speed- 
Script  startup  disks,  make  sure  each 
disk  contains  ProDOS  and  does  not 
have  the  file  BASIC.SYSTEM  on  it. 
(Otherwise,  BASIC.SYSTEM  will 
take  priority  over  SS.SYSTEM,  and 
SS.SYSTEM  will  not  boot  up 
automatically.) 

8.  Your  new  ProDOS  SpeedScript 
disk  is  now  ready  to  boot  up.  just 
insert  the  disk  and  turn  on  your 
computer — SpeedScr/pf  automatical- 
ly loads  and  runs.  To  run  SpeedScript 
after  you've  already  booted  up  from 
another  ProDOS  startup  disk,  just 
enter  -SS.SYSTEM.  The  hyphen  (-) 
is  the  "smart  load"  command. 

Using  ProDOS  SpeedScript 

The  ProDOS  version  of  SpeedScript 
varies  only  slightly  in  operation 
from  the  original  DOS  3.3  version. 
Because  ProDOS  is  stored  in  the 
upper  16K  of  memory,  and  because 
BASIC.SYSTEM  is  not  needed  for 
SpeedScript,  you  have  about  lOK 
more  text  memory  in  ProDOS  than 
you  do  with  DOS  3.3. 

All  changes  are  to  support  Pro- 
DOS  filename  conventions.  CTRL-C 
still  displays  a  disk  catalog.  But  the 
filename  convention  for  Load,  Save, 
and  the  G  (goto  file)  printing  com- 
mand has  changed.  If  you  boot 
SpeedScript  off  its  own  startup  disk, 
it  remembers  the  volume  name  of 
the  disk  it  was  booted  from.  You 
don't  have  to  enter  a  volume  name 
to  load,  save,  or  link  to  a  file  on  that 
disk.  Just  enter  any  legal  ProDOS 
filename.  Remember  that — unlike 
DOS  3.3 — spaces  are  not  allowed  in 
ProDOS  filenames.  Using  spaces  in 
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a  filename  courts  disaster. 

To  access  any  other  disk, 
though,  you'll  have  to  enter  the  vol- 
ume name.  For  example,  if  the  vol- 
ume name  is  BLANK27,  and  you 
want  to  load  the  file  named 
SPROITZ,  you'd  enter  /BLANK27/ 
SPROITZ  at  the  LOAD:  prompt.  Just 
surround  the  volume  name  with 
slashes.  If  you  have  two  drives,  Pro- 
DOS  automatically  searches  for  the 
indicated  volume  name  on  both 
drives. 

There  is  one  additional  differ- 
ence for  the  ProDOS  version:  The 
DOS  3.3  "SpeedScript  File  Convert- 
er" program  (Program  2  from  the 
June  article)  will  not  work  with  Pro- 
DOS  SpeedScript  files.  That  program 
was  designed  to  change  Apple  text 
files  into  SpeedScript  documents, 
and  vice  versa.  Instead,  you  must 
use  the  ProDOS  version  presented 
as  Program  3,  below.  Refer  to  p.  121 
of  the  June  1985  issue  of  COMPUTE! 
for  instructions  on  using  the  File 
Converter  program. 

Program  1:  ProDOS 
Converter,  BASIC  Loader 

Please  refer  to  the  "Apple  Automatic  Proof- 
reader" article  In  this  issue  before  entering  this 
listing. 


BS  310 

PRINT  "ERROR  IN  DATA  STAT 

EMENTS":  END 

7E  320 

DATA 

0,49 

7B  330 

DATA 

160,0, 185,0,32,153 

IF  340 

DATA 

0, 144, 200, 208, 247, 7t 

E8  350 

DATA 

1 

DATA 

14, 144,169,32,133,25 

5F  3t0 

169,50, 133,250,169,8 

ED  370 

DATA 

2 

DATA 

133,253, 169,0, 133,25 

IE  3S0 

177,250, 145,252,200, 

20B 

80  390 

DATA 
165 

249, 230, 231 , 230, 253, 

DB  400 

DATA 
6 

DATA 

253, 201 , 37, 208, 239, 7 

FF  410 

0,8,7499 

55  420 

DATA 

2862,5 

62  430 

DATA 

32, 194,34,76,83,20 

ftF  440 

DATA 

439 

BE  450 

DATA 

3136,5 

3!  A60 

DATA 

32,82,35,76,57,20 

2*  470 

DATA 

302 

Si  480 

DATA 

4728,5 

6E  490 

DATA 

32,82,35,76,118,26 

2B  500 

DATA 

369 

Bl  510 

DATA 

-1 

85  520 

DATA 
76 

643, 36, 651 , 175, 656, 1 

17  530 

DATA 

,  ise 

661 , 184, 2953, 76, 2954 

32  540 

DATA 

,184 

2955, 35, 3332, 76, 3333 

58  550 

DATA 

3334,35 

5B  5i0 

DATA 

-1,1135 

Program  2:  ProDOS 
Converter,  Binary  File 

Rease  refer  to  the  "Apple  MLX"  article  in  the 
June  1 985  issue  before  entering  this  listing. 


START 

ADDRESS: 

3AF0 

52 

100 

D»  =  CHR*  (4) 

END  ADDRESS 

3CBF 

9E 

110 

PRINT  "LOADING  MLX  FILES" 

t<> 

120 

PRINT  D*;"BLDAD  SPEEDSCRI 

3AF0: 

45 

32 

31 

03 

20 

00 

BF 

CI 

2D 

PT,A*2032-' 

3AFB: 

54 

24 

20 

60 

14 

20 

00 

BF 

BB 

13 

130 

PRINT  D*;"BLOAD  SPEEDSCRI 

3B00! 

C0 

57 

24 

B0 

55 

20 

00 

BF 

27 

PT2,A*3AF0" 

3B08: 

C8 

63 

24 

B0 

4D 

AD 

68 

24 

61 

2F 

140 

PRINT  "READING  DATA  STATE 

3B10: 

8D 

6A 

24 

8D 

6F 

24 

BD 

77 

E3 

MENTS" 

3B18: 

24 

AD 

55 

IE 

38 

ED 

46 

IE 

BC 

€• 

150 

FOR  I  =  632  TO  641:  POKE 

3B201 

BD 

6B 

24 

8D 

72 

24 

AD 

56 

6B 

I  +  8192,234:  NEXT 

3B28I 

IE 

ED 

47 

IE 

5D 

6C 

24 

SD 

£7 

n 

160 

C  =  0:  READ  I:  IF  I  =  -  1 

3B30; 

73 

24 

AD 

46 

IE 

8D 

70 

24 

AF 

THEN  190 

3B38: 

AD 

47 

IE 

SD 

71 

24 

20 

00 

50 

ID 

170 

F?EAD  L:  FDR  I  =  I  TO  1  + 

3B40: 

BF 

D0 

69 

24 

B0 

14 

20 

00 

50 

Ls  READ  A:C  =  C  +  A:  POKE 

3B48: 

BF 

CB 

6E 

24 

B0 

0C 

20 

00 

97 

1  +  8192, A:  NEXT  !  READ 

3B50: 

BF 

CC 

76 

24 

B0 

04 

20 

96 

57 

CS:  IF  C  <  >  CS  THEN  310 

3B58: 

14 

60 

BD 

AB 

IE 

20 

96 

14 

10 

Al 

180 

GOTO  160 

3B60: 

A9 

00 

8D 

77 

24 

20 

95 

FE 

A0 

F7 

190 

C  =  0 

3B6S: 

20 

00 

BF 

CC 

76 

24 

20 

A6 

DE 

11 

200 

READ  I:  IF  I  =  -  1  THEN  2 

3B70: 

0A 

A9 

85 

A0 

24 

20 

D5 

09 

67 

20 

3B78: 

AD 

AB 

IE 

20 

DA 

FD 

A2 

FA 

85 

B! 

210 

READ  A:C  =  C  +  A:  POKE  I 

3B80: 

9A 

4C 

IB 

0B 

20 

60 

14 

20 

D5 

+  8192, A;  GOTO  200 

SBSSi 

00 

BF 

CS 

63 

24 

B0 

CB 

AD 

67 

IC 

220 

READ  CS:  IF  C  <  >  CS  THEN 

3B90: 

68 

24 

eo 

79 

24 

8D 

7E 

24 

06 

310 

3B98: 

8D 

77 

24 

20 

00 

BF 

Dl 

78 

55 

F7 

230 

PRINT  "INSERT  DISK  TO  REC 

3BA0: 

24 

B0 

B7 

AD 

7A 

24 

SD 

81 

28 

EIVE  SS.SYSTEM":  PRINT  " 

3BA8: 

24 

AD 

7B 

24 

8D 

82 

24 

AS 

B2 

PRESS  ANY  KEY  WHEN  READY 

3BB0: 

FB 

SD 

7F 

24 

A5 

FC 

8D 

80 

77 

"s  GET  A* 

3BBS: 

24 

20 

00 

BF 

CA 

7D 

24 

B0 

8A 

ib 

240 

PRINT  "SAVING  SS.SYSTEM" 

3BC0: 

99 

20 

00 

BF 

CC 

76 

24 

B0 

41 

M 

250 

DNERR  GOTO  270 

3BCS: 

91 

AE 

7A 

24 

AC 

7B 

24 

60 

41 

BB 

260 

PRINT  D«; "DELETE  SB. SYSTE 

3BD0: 

A0 

00 

B9 

83 

IE 

29 

7F 

99 

35 

M" 

3BD8: 

AC 

IE 

C8 

CC 

5S 

IE 

D0 

F2 

E2 

iB 

270 

ONERR  GOTO  0 

3BE0: 

BC 

AB 

IE 

60 

SD 

AB 

IE 

4C 

F5 

ca 

280 

PRINT  D*; "CREATE  SS. SYSTE 

3BEa: 

2E 

23 

20 

00 

BF 

C5 

46 

24 

09 

M.TSYS" 

3BF0: 

B0 

F2 

A0 

00 

AD 

00 

BE 

29 

A4 

7E 

290 

PRINT  D«"BSAVE  SS.SYSTEM, 

3BF8! 

0F 

BD 

AB 

IE 

B9 

01 

BE 

99 

9A 

A*2000,LS1CBF,TSYS" 

3C00: 

AD 

IE 

CS 

CC 

AB 

IE 

D0 

F4 

29 

n 

300 

PRINT  "SUCCESSFULLY  CONVE 

3C0S: 

C8 

BC 

AB 

IE 

A9 

2F 

BD 

AC 

31 

RTED.  BOOT  DISK  TO  RUN": 

3C10S 

IE 

20 

00 

BF 

C8 

63 

24 

B0 

68 

END 

3C1S: 

CB 

A9 

AF 

20 

ED 

FD 

20 

00 

80 

3C20I 

BF 

CA 

4A 

24 

B0 

BE 

A9 

B9 

44 

FILE" 

3C28: 

B5 

D7 

A9 

04 

as 

D6 

A0 

00 

97 

AE 

60 

PRINT    "     (2)     MAKE    A    TEXT    FI 

3C30: 

Bl 

Db 

C9 

00 

D0 

08 

CB 

Bl 

5A 

LE    INTO    A    SPE6DSCR1PT 

3C3S: 

Db 

F0 

34 

4C 

29 

24 

SO 

£5 

7E 

FILE" 

3C40: 

IE 

29 

0F 

AA 

E8 

BE 

5B 

IE 

EE 

S7 

70 

GET    A4:A    =    VAL     (A«) 

3C4B: 

C8 

Bl 

D6 

09 

80 

20 

ED 

FD 

5B 

47 

80 

IF    A    <     >    1    AND    A    <     >    2   THE 

3CS0} 

CB 

CC 

58 

IE 

D0 

F3 

A9 

BD 

S4 

M   70 

3C5B! 

20 

ED 

FD 

A9 

27 

18 

bS 

D6 

Fl 

t>5 

90 

ON    A    GOTO    100,200 

3C60: 

B5 

D6 

ft5 

D7 

69 

00 

B5 

D7 

Bl 

53 

100 

PRINT    "ENTER    SPEEDSCRIPT 

3C6B: 

C9 

BE 

F0 

B2 

4C 

FC 

23 

20 

BA 

FILE    NAME":     INPUT    " ! " ; A* 

3C70! 

00 

BF 

CC 

52 

24 

4C 

DA 

14 

B3 

99 

110 

PRINT    "ENTER    TEXT    FILE    NA 

3C78! 

02 

60 

00 

BE 

04 

01 

00 

B9 

D3 

ME    TO    CREATE"!     INPUT    " : " ; 

3C80: 

00 

02 

00 

00 

01 

01 

01 

AB 

33 

6S 

3CSas 

IE 

07 

AB 

IE 

C3 

06 

00 

00 

5F 

7E 

120 

PRINT    DS; "BLOAD    ";A*;",A» 

3C90: 

01 

00 

00 

00 

00 

03 

AB 

IE 

0B 

2000" 

3C9a: 

00 

BB 

00 

02 

00 

00 

00 

00 

20 

A4 

125 

L    =    PEEK     (48059)     +    PEEK     ( 

3CA0: 

04 

00 

00 

00 

00 

00 

00 

00 

IB 

4B860)     »    256    +8192 

3CAS; 

01 

00 

02 

00 

00 

00 

00 

04 

E5 

5(1 

150 

FDR    I    =    8192    TO    L    -    1 

3CB0: 

00 

00 

00 

00 

00 

00 

00 

C5 

EE 

•? 

160 

IF    PEEK     (I)     =60    THEN   POK 

3CBS: 

D2 

D2 

CF 

D2 

A0 

A3 

00 

00 

0A 

P9 

180 

E    1,141 

NEXT 

Program  3:  SpeedScripf  File 
Converter  <ProDOS  Version) 

Please  refer  to  the  "Apple  Automatic  Proof- 
reader" article  In  tfiis  issue  before  entering  ttiis 
listing. 

F5 

61 

190 

195 

196 
200 

PRINT    D*; "CREATE    ";BS;",T 

TXT" 

PRINT    D*;"BSAVE    ";B*;",A« 

2000, E";L    -    IJ",TTXT" 

END 

PRINT    "ENTER    TEXT    FILE    NA 

ME";     INPUT    ":";B* 

4«   10 

HOHE 

fb 

210 

INPUT    "ENTER    SPEEDSCRIPT 

52   20 

D$ 

=    CHR« 

(4) 

FILE    NAME    TO    CREATE          :"; 

25   40 

PRINT 

•DO 

YDU    WANT 

TO 

:  " 

A« 

»b   50 

PRINT 

'     (1) 

HAKE    A 

SPEEDSC 

2' 

220 

PRINT    CHR«     (4);"BLOAD    ";B 

RIPT    FILE 

INTO 

A   TEXT 

«;",A«2000,TTXT" 

n  230  L  =  PKEK  (48859)  +  PEEK  ( 
48360)  t  256  +  8192 

55  240  FOR  I  =  B192  TO  L  -  1 

lA  245  IF  PEEK  (I)  =  141  THEN  PQ 
KE  1,60 

3t  24,0  NEXT 

14  29S  PRINT  D«;"BSAVE  ";A*;",Aa 
192,E"jL  -  1 

B4  296  END 


The  Apple  version  of  SpeedScript 
3.0,  and  all  other  Apple  programs  in 
the  June  1985  issue,  may  be  or- 
dereci  on  (jisk  directly  from  COM- 
PUTE! PublicaHons.  Call  TOLL 
FREE  1-800-334-0868  (in  NC  1-919- 
275-9809)  to  charge  your  order  8:30 
a.m.-7:00  p.m.  Eastern  Time,  Mon- 
day through  Friday.  Or  send  check 
or  money  order  ($12.95  plus  $2.00 
shipping  and  handling)  to: 

COMPUTE!  Publications,  Inc. 
P.O.  Box  5058 
Greensboro,  NC  27403  USA 

Readers  outside  the  United  States 
and  Canada  add  $3.00  shipping  and 
handling.  All  orders  must  be  pre- 
paid in  U.S.  funds.  © 


Apple  Automatic  Proofreader 


Tim  Victor,  Editorial  Programmer 


Now  it's  easier  than  ever  to  enjoy 
COMPUTE!  programs  for  Apple  U- 
series  computers.  Our  "Automatic 
Proofreader"  utility,  formerly  avail- 
able only  for  Commodore,  Atari,  and 
IBM  computers,  has  now  been  adapted 
and  enhanced  for  the  Apple  U+,  He, 
and  lie  with  either  DOS  3.3  or  ProDOS. 
The  Automatic  Proofreader  alerts  you 
to  most  typing  mistakes  you  might 
make  while  entering  a  COMPUTE! 
program. 


Beginning  this  month,  there  will  be 
an  extra  two-digit  hexadecimal 
number  at  the  start  of  each  program 
line  in  Applesoft  BASIC  program 
listings.  This  extra  number  is  a 
checksum  to  be  used  with  the  "Apple 
Automatic  Proofreader"  utility. 
When  you  type  in  a  program  using 
the  Automatic  Proofreader,  you  can 


check  for  typing  errors  by  compar- 
ing checksums  instead  of  reading 
each  line  and  comparing  it,  charac- 
ter by  character,  with  the  listing.  The 
Proofreader  and  your  computer  do 
most  of  the  work  for  you. 

The  Automatic  Proofreader 
loads  a  short  machine  language  rou- 
tine into  memory  and  attaches  it  to 
your  Apple's  operating  system. 
Each  time  you  press  RETURN  to 
enter  a  program  line,  this  routine 
displays  a  two-digit  checksum  at  the 
top  of  your  screen.  If  you've  typed 
the  line  correctly,  the  checksum  on 
your  screen  matches  the  one  in  the 
printed  listing — it's  that  simple.  You 
don't  have  to  use  the  Proofreader  to 
enter  listings,  but  doing  so  greatly 
reduces  the  chance  of  making  a 
typo. 

Getting  Started 

First,  type  in  the  Apple  Automatic 
Proofreader  program  following  this 


article.  The  Proofreader  can't  check 
itself  before  it's  done,  so  you'll  have 
to  be  extra  careful  to  avoid  mistakes. 
This  chore  might  go  a  little  faster  if 
you  remind  yourself  that  this  is  the 
last  time  you'll  have  to  do  it. 

The  Proofreader  checks  which 
operating  system  you're  running 
before  it  hooks  up  the  checksum 
routine,  so  you  can  type  it  in  with 
either  DOS  3.3  or  ProDOS.  If  you 
want  to  use  the  Proofreader  with 
both  operating  systems,  you  won't 
have  to  retype  it.  All  you  need  is  a 
utility  to  copy  a  file  between  disks 
with  different  formats,  such  as  the 
one  provided  on  the  ProDOS  System 
Utilities  disk. 

As  soon  as  you  finish  typing  the 
Proofreader,  save  at  least  two 
copies.  This  is  very  important,  be- 
cause the  Proofreader  erases  the 
BASIC  portion  of  itself  when  you 
run  it,  leaving  only  the  machine  lan- 
guage portion  in  memory, 
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Now  type  RUN  and  hit  RE- 
TURN. The  Proofreader  clears  the 
screen,  loads  the  machine  language 
routine,  displays  the  message 
PROOFREADER  ACTIVATED, 
erases  the  BASIC  portion  of  itself, 
and  ends.  If  you  type  LIST  and  press 
RETURN,  you'll  see  that  no  BASIC 
program  is  in  memory.  The  com- 
puter is  ready  for  you  to  type  in  a 
new  BASIC  program. 

Entering  Programs 

Once  the  Proofreader  is  activated, 
you  can  begin  typing  in  a  BASIC 
program  as  usual.  Every  time  you 
finish  typing  a  line  and  press  RE- 
TURN, the  Proofreader  displays  a 
two-digit  checksum  number  in  the 
upper-left  corner  of  the  screen. 
Compare  this  checksum  with  the 
checksum  printed  next  to  the  corre- 
sponding line  in  the  program  listing. 
If  the  numbers  match,  you  can  be 
pretty  certain  the  line  was  typed 
correctly.  Otherwise,  check  for  your 
mistake  and  type  the  line  again. 

A  common  mistake  when  en- 
tering BASIC  programs  on  the  Apple 
occurs  when  you  accidentally  press 
a  key  while  holding  down  the  con- 
trol (CTRL)  key.  This  adds  an  invisi- 
ble control  character  to  the  line  you 
are  typing.  If  you  don't  find  it  before 
you  run  the  program,  this  stray 
character  may  cause  a  syntax  error 
or  other  mysterious  behavior.  Fortu- 
nately, the  Proofreader  detects  the 
presence  of  these  invisible  control 
characters,  displaying  a  checksum 
that  doesn't  match  the  one  in  the 
listing.  So  it's  always  a  good  idea  to 
retype  a  line  if  the  checksums  don't 
match,  even  though  you  might  not 
see  any  difference  in  the  lines 
themselves. 

The  Proofreader  ignores  space 
characters,  so  you  can  omit  spaces 
between  keywords  and  still  see  a 
matching  checksum.  Spaces  are  im- 
portant only  between  the  quotation 
marks  of  PRINT  statements  or  string 
assignments.  If  you  accidentally 
type  too  many  spaces  or  leave  some 
out,  this  is  the  only  mistake  the 
Proofreader  won't  catch.  For  this 
reason,  you  should  be  extra  careful 
when  entering  text  within  quotes. 

Before  running  another  BASIC 
program,  it's  a  good  idea  to  turn  off 
the  Proofreader  by  holding  down 
CTRL  while  pressing  the  RESET 
button.  The  machine  language  part 
of  the  Proofreader  is  kept  in  memo- 
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ry  starting  at  address  768  ($300 
hexadecimal).  This  location  is  out  of 
BASIC'S  way,  but  a  lot  of  other  pro- 
grams use  this  same  place  for  their 
machine  language  subroutines.  Dis- 
able the  Proofreader  to  avoid 
conflicts. 

Abbreviated  instructions  on  us- 
ing the  Proofreader — and  a  listing  of 
the  Proofreader  program  itself — will 
appear  each  month  in  the  section 
"COMPUTEI's  Guide  to  Typing  In 
Programs." 

How  It  Works 

When  the  Applesoft  BASIC  inter- 
preter needs  to  get  a  line  of  input 
from  the  keyboard,  it  calls  a  ma- 
chine language  routine  in  the  Ap- 
ple's Read  Only  Memory  (ROM) 
called  GETLN. '  GETLN,  in  turn, 
calls  the  operating  system  to  get  a 
single  keypress,  which  it  stores  in  an 
input  buffer.  If  the  RETURN  key 
was  pressed,  GETLN  ends,  leaving 
one  new  line  for  the  BASIC  inter- 
preter in  the  input  buffer,  Other- 
wise, it  repeats  the  process,  asking 
for  another  keypress. 

The  operating  system  normally 
gets  individual  keystrokes  from  a 
ROM  routine  called  KEYIN,  but  the 
Proofreader  changes  this.  When  the 
Proofreader  is  installed,  the  operat- 
ing system  calls  the  checksum  rou- 
tine instead,  and  the  checksum 
routine  asks  KEYIN  for  a  character. 
If  any  key  other  than  RETURN  was 
pressed,  the  checksum  routine  just 
passes  it  on  to  the  operating  system, 
which  gives  it  to  GETLN.  But  if  RE- 
TURN was  pressed,  the  checksum 
routine  examines  the  contents  of 
GETLN's  input  buffer,  which  now 
contains  an  entire  line  of  input,  to 
calculate  the  checksum  that  it  dis- 
plays at  the  top  of  the  screen. 

One  very  common  typing  mis- 
take is  transposition:  typing  two 
successive  characters  in  the  wrong 
order,  like  PIRNT  instead  of  PRINT, 
A  checksum  program  that  merely 
adds  the  codes  of  the  characters  in  a 
line  can  detect  only  the  presence  or 
absence  of  a  character,  not  transpo- 
sition errors.  The  Commodore  and 
Atari  versions  of  the  Automatic 
Proofreader — the  first  Proofreaders 
introduced — have  this  problem.  Be- 
cause the  Apple  Proofreader  uses  a 
more  sophisticated  formula  to  com- 
pute checksums,  it  alerts  you  to 
transposed  keystrokes.  Other  ver- 
sions of  the  Proofreader  could  be 


upgraded,  but  this  would  mean  that 
checksums  in  previously  published 
listings  would  be  incompatible  with 
the  new  Proofreader. 

The  Apple  Automatic  Proof- 
reader detects  almost  every  possible 
typing  mistake,  including  transposi- 
tions, missing  or  extra  characters, 
accidental  control  characters,  and 
incorrect  line  numbers.  Typing  COM- 
PUTE! programs  into  your  Apple 
computer  has  never  been  easier. 

Apple  Automatic  Proofreader 


76B  TD  7i8  + 
C  +  ft:  POKE  I 


10  C  =  0:  FOR  I 

6B:  READ  A:C 

,ft:  NEXT 
20  IF  C  <  >  725B  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  *  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002:  GOTO  50 
40  PRINT  CHRt  (4)  ;  ■'IN«A«300" 
50  POKE  34,0:  HOME  :  POKE  34,1; 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  209,60,338,72,169,0 
L20  DATA  72,189,255,1,201,160 
130  DATA  240,6,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
1B0  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  © 
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Moving  Memory  With  ROM 
For  64  and  VIC-20 


Thomas  Henry 


Add  zing  to  BASIC  programs  on  your 
Commodore  64  or  VlC-20  by  calling 
machine  language  routines  built  into 
the  computer's  operating  system.  This 
article  shows  how  to  use  machine  lan- 
guage block  move  routines  from 
BASIC. 


You  may  not  realize  it,  but  your 
Commodore  computer  has  a  trea- 
sure trove  of  built-in  machine  lan- 
guage routines  stored  in  ROM  (Read 
Only  Memory).  The  computer's 
ROM  operating  system  is  actually  a 
large  machine  language  program 
with  numerous  subroutines — each 
performing  a  different  task  such  as 
displaying  characters,  opening  or 
closing  files,  and  so  on.  While 
they're  designed  for  internal  use, 
many  of  these  routines  can  be  used 
in  BASIC  programs,  too. 

One  very  useful  ROM  routine 
performs  a  block  move  of  memory, 
transferring  the  contents  of  one  area 
of  memory  to  a  new  location.  The 
system  calls  this  routine  whenever 
you  add  a  line  in  the  middle  of  a 
BASIC  program;  To  clear  space  for 
the  new  line,  all  of  the  program  lines 
above  the  insertion  point  are  moved 
to  higher  memory  locations.  The  up- 
per part  of  the  program  shifts  up- 
ward as  one  large  chunk  or  block, 
hence  the  name  block  move.  Since 
the  ROM  routine  is  written  in  ma- 
chine language,  it  can  move  thou- 
sands of  bytes  in  less  than  one  blink 
of  the  cursor. 

What  other  times  are  block 
moves  useful?  In  word  processing 


and  database  management  it's  often 
necessary  to  shift  blocks  of  data 
from  one  location  to  another.  Add- 
ing a  sentence  while  word  process- 
ing is  much  like  adding  a  line  in 
BASIC:  Everything  above  the  inser- 
tion point  has  to  move  up. 

Block  moves  are  also  handy  in 
graphics  applications.  The  usual 
first  step  in  redefining  characters  is 
to  copy  the  existing  character  set 
from  ROM  into  RAM  where  it  can 
be  altered.  Moving  the  2048-byte 
character  set  takes  about  30  seconds 
in  BASIC,  and  less  than  a  second 
with  the  ROM  routine. 

Want  to  modify  the  BASIC  on 
your  64?  The  first  step  is  to  copy  all 
8K  of  BASIC  ROM  into  underlying 
RAM,  another  case  where  a  ma- 
chine language  block  move  saves  a 
lot  of  time. 

Putting  ROM  To  Work 

Program  1  demonstrates  how  to  use 
the  ROM  block  move  routine  from 
BASIC.  Commodore  64  users 
should  enter  and  save  the  program 
exactly  as  listed.  If  you  are  using  a 
VIC-20,  change  the  number  in  line 
10  to  50156.  When  you  run  Program 
1,  it  prompts  you  to  enter  three  val- 
ues: the  starting  and  ending  ad- 
dresses of  the  block  you  want  to 
move  (source  block),  and  the  start- 
ing address  of  the  location  where 
you  want  the  block  to  go  (the  desti- 
nation block). 

Let's  try  a  simple,  graphic  ex- 
ample: moving  a  block  of  low  mem- 
ory upward  into  screen  memory  to 
make  it  visible  on  the  screen.  Clear 
the  screen  by  pressing  SHIFT-CLR/ 


HOME.  If  you  are  using  a  Commo- 
dore 64,  enter  the  following  line  in 
direct  mode  (with  no  line  number) 
and  press  RETURN: 

FOR  J =55296  TO  56295:POKE 

J,1:NEXT 

If  you're  using  an  unexpanded  VIC 
or  one  with  3K  memory  expansion, 
enter  this  line  in  direct  mode: 

FOR  J  =  38400  TO  38905:FOKE 
J,0:NEXT 

For  a  VIC  with  8K  or  more  expan- 
sion, use  the  following  instead: 

FOR  J  =  37888  TO  38393:FOKE 
J,0:NEXT 

Run  Program  1  and  enter  the 
following  values  in  response  to  the 
three  prompts: 

START       END         NEW 


64                0                  999 

1024 

VIC             0                  505 

7680 

(unexpanded) 

VIC              0                   505 

4096 

(8K  or  more  expansion) 

The  screen  fills  with  characters 
from  the  lowest  1,000  bytes  (506 
bytes  on  the  VIC)  of  the  computer's 
memory.  The  block  move  itself  is 
nearly  instantaneous — the  bytes  are 
transferred  in  less  time  than  the 
BASIC  program  takes  to  perform  the 
preliminary  calculations. 

Adding  To  BASIC 

This  program  is  easy  to  incorporate 
as  a  subroutine  in  your  own  BASIC 
programs.  The  variables  S,  E,  and  N 
represent  the  source  block  starting 
address,  source  block  ending  ad- 
dress, and  new  destination  starting 
address,  respectively.  All  that's 
needed  is  to  replace  the  three 
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INPUT  statements  with  statements 
that  define  these  variables  directly 
(5  =  24576  or  whatever)  and  add  a 
RETURN  statement  at  the  end. 

Note  that  line  30  adds  1  to  the 
source  block  ending  address  (E). 
Since  the  ROM  routine  does  not 
copy  the  last  byte  of  the  source 
block,  you  must  always  add  one  to 
this  address.  The  variable  L  is  the 
length  of  the  source  block,  comput- 
ed by  subtracting  S  from  E.  Lines 
60-80  of  the  program  convert  the 
three  addresses  into  the  low  byte/ 
high  byte  format  used  by  the  micro- 
processor when  executing  machine 
language.  Line  120  enters  the  ROM 
routine  at  the  correct  spot  in  cases 
where  the  starting  address  is  a  mul- 
tiple of  256  {located  on  an  even 
memory  page  boundary). 

Lines  90-110  pass  the  low  byte/ 
high  byte  addresses  to  the  ROM 
routine  by  POKEing  them  into  ap- 
propriate locations.  Locations  781 
and  782  pass  the  destination  block 
starting  address  to  the  ROM  routine 
via  the  mici'oprocessor's  X  and  Y 
registers.  Since  the  program  added  1 
to  the  source  block  ending  address, 
line  100  adds  1  to  the  destination 
block  ending  address  as  well. 

Direction  is  Criticai 

When  the  source  and  destination 
areas  do  not  overlap,  you're  free  to 
use  the  ROM  routine  for  either  up- 
ward or  downward  moves.  When 
the  two  areas  overlap,  however,  you 
must  consider  the  direction  of  the 
move,  and  transfer  bytes  in  the 
proper  order. 

To  illustrate,  let's  say  you  want 
to  move  a  five-byte  block  upward 
one  byte  in  memory,  from  locations 
300-304  to  locations  301-305.  If 
you  start  moving  bytes  from  the  bot- 
tom of  the  source  block,  the  byte  in 
location  300  is  moved  to  location 
301.  Then  the  byte  in  301  moves 
into  302,  and  so  on.  Can  you  see 
what  will  happen?  The  byte  in  300  is 
copied  or  "rippled"  all  the  way  up 
the  block. 

To  avoid  this  problem,  the 
ROM  routine  always  starts  with  the 
last  (highest)  byte  of  tHe  source 
block  and  copies  downward.  In  the 
above  example,  the  ROM  routine 
will  start  at  the  highest  byte  of  the 
source  block  (304)  and  transfer  it  to 
location  305,  the  top  of  the  destina- 
tion block.  Then  the  byte  in  303 
would  be  copied  into  304,  and  so 


forth    unHl    every    byte    has    been 

moved. 

Moving  Downward 

Transferring  bytes  in  top-to-bottom 
order  is  fine  for  upward  moves,  but 
unsuitable  for  downward  moves  of 
overlapping  blocks.  In  that  situation 
the  ROM  routine  will  just  ripple 
higher  bytes  into  lower  ones  (re- 
member, this  only  matters  when  the 
blocks  overlap). 

Unfortunately,  the  ROM  does 
not  contain  a  downward  move  rou- 
tine that  works  for  general  memory 
transfers.  When  a  BASIC  program 
line  is  deleted,  the  top  of  the  pro- 
gram is  moved  down  over  the  de- 
leted line.  But  the  ROM  code  that 
does  this  job  can't  be  called  as  a 
separate  routine,  and  is  useful  only 
for  moving  linked  BASIC  lines. 

To  solve  this  problem.  Program 
2  creates  k  machine  language  rou- 
tine that  moves  overlapping  blocks 
of  memory  downward  without  rip- 
pling. Since  the  machine  language  is 
relocatable,  you  can  put  the  routine 
in  any  other  suitable  location  by 
changing  the  address  in  line  5.  The 
same  address-storing  locations  are 
used  as  in  Program  1;  follow  the 
directions  outlined  above. 

Note  that  this  routine  will  not 
move  blocks  correctly  within  zero 
page  {the  lowest  256  bytes  of  mem- 
ory). That's  not  a  serious  limitation, 
since  it's  hard  to  think  of  a  reason  to 
move  zero  page  memory  downward. 
To  move  zero  page  memory  up- 
ward, use  the  routine  in  Program  1. 

The  more  you  work  with  these, 
routines,  the  more  uses  you'll  find 
for  them.  For  example,  the  rippling 
effect  described  above  is  undesir- 
able when  you  want  to  move  a  cor- 
rect copy  of  one  memory  block  to 
another  location.  But  you  can  take 
advantage  of  the  rippling  effect  to 
fill  a  large  block  of  memory  with 
identical  values. 

Clearing  a  high-resolution 
graphics  screen  on  the  Commodore 
64,  for  instance,  requires  putting 
8,000  consecutive  zero  bytes  in 
memory.  It  takes  a  mighty  long  time 
to  do  8,000  POKEs  in  BASIC,  but 
the  ROM  routine  in  Program  1  can 
clear  the  screen  in  no  time.  Simply 
POKE  a  zero  into  the  highest  byte  of 
the  hi-res  screen,  set  the  starting  and 
ending  addresses  to  shift  a  block  of 
7,999  bytes  downward  one  byte 
from  the  top,  and  SYS  to  the  routine. 


Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Progroms"  before  entering  these  listings, 

Program  1 :  ROM  Block  Move 

10  D=41964:REM  CHANGE  TO  50156 
FOR  VIC  :rem  27 

20  INPUT  "START" ?S      : rem  82 
30  INPUT  "END (2  SPACES] "; E: E=E 
+1  rrem  235 

40  INPUT  "NEW{2  SPACES }";N 

:rem  171 
50  L=E-S:EN=L+N  trem  130 
60  A%=L/256:A=L-256*A%;rem  127 
70  B%={EN-A>/256iB=EN-256*B%-A 

trem  62 
80  C%={E-A)/256:C=E-256*C%-A 

: rem  166 
90  POKE781,A%+1:POKE782,A 

trem  157 
100  POKE91,C%:POKE90,C:rein  255 
110  POKE89,B%:P0KEa8,B  : rem  12 
120  IPA=0THENSYS(D+7) :END 

:  rem  6 
130  SYSCD)  :rem  40 

Program  2:  Downward  Blocic 
Move 

5  D=828:REH  ML  IS  RELOCATABLE, 
CHANGE  828  TO  KEH  ADDRESS 

:reni  208 
10  FORJ=DTOD+18:READA:P0KEJ, As 
NEXT  :rem  19fl 

20  INPUT"START"rS:S=S-l 

:rem  205 
30  INPUT "END" ;E  : rem  142 
40  INPUT"NEir';N:N=N-l  :  rem  28 
50  L=E-S  trem  179 

60  A%=L/256:A=256-L+256*A% 

: rem  71 
70  IPA=256THENA=0!A%=A%-1 

:rera  143 
80  B%=(N-A)/256:B=N-256*B%-A 

:rem  181 
90  C%=(S-A)/256:C=S-256*C%-A 

: rem  19  5 
100  POKE781,A%+l:POKE782,A 

:rera  19  7 
110  POKE91,C%:POKE90,C  : rem  0 
120  POKE89,B%:POKE88,B  :rem  13 
130  SYSD  :rem  215 

140  DATA177,90,145,88,200,208, 
249,230,91,230     : rem  172 
150  DATA89,177,90,145,88,202,2 
08,242,96       trem  200  © 


3M  Diskettes 
Lifetime  Warranty 


TIRED  OF  WAITING 
FOR  SERVICE  AND  PRICE? 

9  out  of  10  SURVEYED 
DISK  BUYERS  PREFERRED 

NORTH  HILLS 

#1  IN  SERVICE  AND  PRICE 

1-800-328-3472 

Formatted  and  hard  sectored  disks 
in  stock-Deaier  inquiries  invited. 

COD,  VISA,  MASTERCARD 
All  orders  shipped  within  24  hrs. 
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3564  Rolling  View  Dr. 

White  Bear  Lake,  MN.  55110 

MN.  call  collect— 612-770-04S5 


78     COMPUTE!      July  l<?e5 


Improving  The  Atari's  Aipliabet 


Rhett  Anderson 


Add  true  descenders  to  lowercase 
screen  characters  with  this  short 
program  for  the  Atari  400,  800,  XL, 
and  XE  computers. 


As  you've  probably  noticed,  some  of 
the  Atari's  lowercase  characters  look 
a  little  strange  on  a  TV  or  monitor 
screen.  In  most  printing,  the  lower- 
case characters  p,  g,  q,  j,  and  y  all 
have  tails — known  as  descenders — 
that  drop  below  the  baseline  of  type. 
Lowercase  descenders  help  the  eye 
distinguish  these  characters  from 
others,  and  produce  a  more  bal- 
anced visual  effect, 

On  Atari  and  other  home  com- 
puters, however,  lowercase  charac- 
ters do  not  have  true  descenders. 
The  descender  is  there,  all  right,  but 
it  doesn't  reach  below  the  r.ctual 
baseline.  Instead,  the  entire  charac- 
ter is  shifted  upward,  making  it 
harder  to  read.  (Some  inexpensive 
printers  also  have  false  descenders.) 

To  improve  your  Atari's  alpha- 
bet, type  in  and  save  the  demonstra- 
tion program  below.  When  you  run 
it,  your  screen  text  will  have  true 
lowercase  descenders  as  shown  in 
the  photo.  You  can  then  load  and 
run  other  BASIC  programs  to  take 
advantage  of  the  improved  charac- 
ter set.  The  same  technique  can  be 
used  to  improve  readability  in  a  text 
adventure  program,  BASIC  word 
processor,  or  any  application  that 
displays  a  lot  of  text  on  screen. 
However,  if  the  other  BASIC  pro- 
gram uses  machine  language  sub- 
routines or  a  special  character  set  of 
its  own,  it  may  not  be  compatible 
with  this  utility. 

Incidentally,  the  Atari  version 
of  the  SpeedScript  3.0  word  proces- 
sor (COMPUTE!,  May  1985),  written 


Enhance   a^^r  screen  dss 
The    inproved   fitari    Alph 
Which   adds  True   rfescsude 
lowercase    letters    p,    <^, 


aSCDEFGHIJKUMHOPaSSTUVHHVS 

5t»cde^ghi  JfelMnop^r^^Tuuvsya 
BEQD-V 


True  lowercase  descenders  make  Atari 
screen  displays  more  readable. 


entirely  in  machine  language,  in- 
cludes true  lowercase  descenders  as 
a  built-in  feature. 

ANTIC  Mode  3 

The  demonstration  program  rede- 
fines half  of  the  standard  character 
set  and  uses  ANTIC  mode  3  to  gain 
an  effective  character  resolution  of 
8  X  10  pixels  (characters  are  nor- 
mally 8X8  pixels  in  size).  ANTIC 
mode  3  obtains  this  extra  resolution 
by  reducing  the  number  of  lines  on 
the  screen.  Only  19  lines  of  text  can 
be  displayed  rather  than  the  usual 
24  lines  as  in  graphics  mode  0. 

However,  the  operating  system 
still  behaves  as  though  24  lines  are 
available;  as  a  result,  five  lines  of 
information  are  lost.  The  program 
solves  this  problem  in  lines 
140-160,  which  eliminate  the  bot- 
tom five  lines  of  the  graphics  0  dis- 
play. Since  many  BASIC  programs 
introduce  new  text  at  the  bottom  of 
the  screen  and  scroll  upward,  you 
may  find  it  preferable  to  eliminate 
the  top  five  lines  of  text.  This  can  be 
done  by  adding  the  following  lines 
to  the  program: 

Pt;i30     M  =  PEEK  (A  +  4) +PEbK  (ft  +  5) 
*256+200 

LL131     H=INT  (M/256)  :  L  =  ri-H*25 

6 
FL  132     POKE     ft  +  4,L:PDKE     A  +  5,H 


When  redefining  the  character 
set,  it's  necessary  to  move  the  char- 
acter data  from  ROM  into  RAM 
where  it  can  be  altered.  Lines  30-90 
of  the  demonstration  program  do 
this  with  a  short  machine  language 
routine  taken  from  COMPUTE! 
Books'  Mapping  the  Atari. 

Improved  Atari  Alphabet 

Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing 


NJ  5     RE 

En  10    D 

JA  20    M 

0 

LF  25  P 
{ 

mZ0  F 
P 

H 
JO  40     D 

0 
KH  50     D 

3 
DI  60     D 

4 
tN  70     D 

1 
DJ  80  D 
OF  90     Z 

5 
DP  100 

CG  120 

PL  130 

OF   140 

FJ  150 
BP  160 

CB  170 


180 
190 


KK  200 
AL  210 
IJ  220 

BD  230 
BO  240 
OF  241 


H  MOV 
IM  BY 
eM  =  PE 
6, MEM 
GRAPH 
RINT 
11  SP 
DR  LQ 
GM:  BY 
R«  (PG 
ftTA  1 
4,  133 
ATA  1 
3,214 
ATA  4 
5,214 
ATA  2 
3,  230 
ATA  2 
=  USR  ( 
h,  CHA 
REM  A 
T 

A  =  PEE 
1256 
POKE 
FDR  I 
EP  -1 
POKE 
NEXT 
FOR  I 
E  1,3 
NEXT 
REM  R 
ETTER 
FOR  I 
FOR  J 
READ 
+  J,K 
NEXT 
NEXT 
FOR  J 
1  ;  POK 
HACT 


e  CH 
TE»  ( 
EK  (  1 

-1  sC 
ICS 
!  PRI 
ACEB 

DP=1 
TE»  < 
M)  !  N 
04,  1 
,212 
04,  1 
,  162 
,  160 


ARAC 

S0) 

06)  - 

HACT 

0 

NT  : 

JPLE 

TO 
LOOP 
EXT 
04,  1 

33,  21 


TER  SET 

4:PDKE  1 
=MEM«256 

PRINT  " 
ASE  WAIT' 
32: READ 
, LOOP) -C 
LOOP 
33, 213, 1 


00, 20B, 2 

,215 

02,  2138,  2 

ADR (BYTE 

CT) 

LTER     DIS 


IS,  104,  1 
,  0,  177,212,  1 
49, 230. 2 


40,  96 

*) , 224*2 


PLAY  LIS 
K (560) +PEEK (561 ) 


A+3,67 
=A+26  TO 

I , PEEK  <  I 

I 

=A+6  TO 


EDO  LOWE 

S 

=97  TO  1 

=  0  TO  7 

K:POKE  C 

J 
I 

51  1  TO 
E  CHACT+ 
J-1 ) :NEX 


A+24  ST 
+  5) 
A+23:P0K 

R  CASE  L 
22 

HACT+I»a 


0  STEP  - 
J, PEEK (C 

T  J 
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PC  244  FOR  J=216  TO  223:  POKE 
CHACT+J, PEEK (CHACT+J 
+  1  ) 
DK  245  POKE  CHACT  +  J  -  1  20  ,  PEEK 
(CHACT+J-1 19) ! NEXT  J: 
POKE  CHftCT+224,0i POKE 
CHACT+104, 0 
PO250  REM  POINT  CHBAS  TO  PR 
QPER  PAGE 

HS260  POKE  MEM-1,0!POKE  756 

,  MEM 
AN  270  REM  DATA  FOR  NEW  LOWE 

RCASE 
HH  2B0  DATA  0,0,0,60,6,62,10 

2,  62 
HL290  DATA  0,0,96,96,124,10 

2,  102,  124 
IK  300  DATA  0,0,0,60,96,96,9 

6,60 
):E310  data  0,0,6,6,62,102,1 

02,62 
HK  320  DATA  0,0,0,60,102,126 

, 96, 60 
KJ  330  DATA  0,0,14,24,62,24, 

24,24 
DK  340     DATA     102,60,0,62,102, 

102,62,6 
HE  350     DATA     0,0,96,96,124,10 

2, 102, 102 
HK  360     DATA     0,0,24,0,56,24,2 

4,  60 
BP370     DATA     102,60,6,0,6,6,6 

,6 
HP  380     DATA     0,0,96,96,108,12 

0, 10G, 102 
LII390     DATA     0,0,56,24,24,24, 

24,  60 
ED400     DATA     0,0,0,102,127,12 

7, 107, 99 
FS410    DATA    0,0,0,124,102,10 

2, 102, 102 
PJ  420     DATA     0,0,0,60,102,102 

, 102,60 
L6  430    DATA    96,96,0,124,102, 

102, 124,96 
KL440     DATA    6,3,0,62,102,102 

,62,6 
DO4S0     DATA    0,0,0,124,102,96 

,96,96 
It:460     DATA    0,0,0,62,96,60,6 

,124 
NP470     DATA     0,0,24,126,24,24 

,24, 14 
i:<14B0     DATA     0,0,0,102,102,10 

2, 102,62 
AA490    DATA    0,0,0,102,102,10 

2,60, 24 
111500    DATA    0,0,0,99,107,127 

,62,54 
ni1510     DATA     0,0,0,102,60,24, 

60, 102 
GF  520     DATA     102,60,0,102,102 

,102, 62, 6 

IIII530     DATA     0,0,0,126,12,24, 

4B, 126 
HF  540     PRINT     "  <:CLEAR>  ";  PRINT 

: PR  I  NT 
J5550    PRINT     "Enhance    your     s 

creen    display*    with" 
ftp  560     PRINT     "the     Improved     A 

tari     Alphabet" 
M570     PRINT     "which     adds     tru 

e    descenders    to    the" 

ES  5B0     PRINT     "lowercase     lett 

ers     p,     q,     g,     y     and     j. 
•I 

fC  590  PRINT  :PRINT 

FE  600  FOR  J  =  65  TO  90:PRINT 

CHR«<J) ; ;NEXT  J:PRINT 
sFDR  J=97  TO  i22:PRI 

NT  CHRS { J) ; : NEXT  J  Q 
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Commodore  64 
AutoPRINT 


Rocky  Moore 


This  labor-saving  utility  can  shave  off 
hours  of  tedious  programming  time  if 
you  write  programs  with  lots  of 
PRINT  statements.  It  works  on  any 
Commodore  64. 


PRINT  statements  can  be  laborious 
to  format  if  you're  writing  a  program 
that  contains  many  text  screens, 
such  as  those  found  in  educational 
or  instructional  applications.  You 
have  to  repeatedly  list,  edit,  and  run 
the  program  to  make  sure  words 
aren't  improperly  broken  across 
screen  boundaries,  that  lines  aren't 
scrolled  out  of  view,  and  so  on. 
Wouldn't  it  be  nice  if  you  could  just 
type  the  text  on  the  screen  as  you 
wish  it  to  appear,  and  then  have  it 
automatically  added  to  your 
program? 

"Commodore  64  AutoPRINT" 
makes  that  possible.  It  is  a  machine 
language  utility  which  automatical- 
ly converts  a  screen  display  into 
PRINT  statements  and  appends 
them  to  your  own  BASIC  program. 

To  prepare  AutoPRINT,  type  in 
the  BASIC  loader  program  follow- 
ing this  article.  Be  sure  to  save  a 
copy  or  two  before  running  it  for  the 
first  time  because  the  BASIC  portion 
of  the  program  erases  itself  after  it 
runs,  leaving  only  the  machine  lan- 
guage pordon  in  memory. 

After  you  type  RUN,  the  ma- 
chine language  is  read  from  DATA 


statements  and  POKEd  into  memo- 
ry. When  the  process  is  complete,  a 
checksum  of  the  data  is  compared  to 
the  proper  total  to  help  detect  any 
typing  errors  in  the  DATA  state- 
ments. If  the  values  don't  match,  an 
error  message  is  printed  and  the 
program  stops.  If  the  data  is  correct, 
the  following  message  appears; 

AUTOPRINT  IS  NOW  LOADED  LINE 
NUMBER  INCREMENT  (1-255)? 

At  this  point,  the  program  is 
waiting  for  you  to  specify  the 
amount  by  which  the  line  numbers 
of  the  successive  PRINT  statements 
created  by  AutoPRINT  will  increase. 
If  you  simply  press  RETURN  with- 
out giving  any  input,  the  program 
will  use  an  increment  of  10.  You 
should  then  see  the  following 
message: 

TO  ACTIVATE,  TYPE  SYS  51000 
AND  PRESS  RETURN 

Character  Graphics,  Too 

You  can  load  an  existing  BASIC  pro- 
gram into  the  computer,  or  begin 
writing  one  from  scratch.  Once  Auto- 
PRINT is  enabled,  you're  ready  to 
create  screen  displays.  AutoPRINT 
lets  you  move  the  cursor  anywhere 
on  the  screen  and  type  anything  you 
want — and  that  includes  text  or 
graphics  with  the  keyboard  graphics 
characters.  The  one  exception  is  that 
you  should  not  include  quote  marks 
(")  in  your  screen  design,  as  these 
will  not  be  handled  properly.  Also, 


you  should  not  press  the  RETURN 
key  until  you  are  finished  designing 
your  screen.  Pressing  that  key  sig- 
nals AutoPRINT  that  you  are  ready 
for  your  screen  to  be  converted  into 
PRINT  statements.  If  you  wish  to 
skip  quickly  to  the  start  of  the  next 
line,  use  SHIFT-RETURN  instead. 
You  should  not  type  a  character  in 
the  lower  right  corner  of  the  screen 
or  type  SHIFT-RETURN  on  the  bot- 
tom line,  as  either  of  these  will  cause 
your  display  to  scroll  and  probably 
ruin  your  carefully  prepared  screen 
layout. 

To  see  how  the  program  oper- 
ates, create  a  simple  screen  display, 
hit  RETURN,  then  type  LIST.  You'll 
see  your  screen  display  converted 
into  PRINT  statements  as  a  BASIC 
program,  or  appended  to  your  exist- 
ing program.  If  you  wish  to  create 
another  display,  type  SYS  51000  to 
again  activate  AutoPRINT. 

When  you  use  AutoPRINT 
without  a  BASIC  program  in  memo- 
ry, the  PRINT  statements  start  at 
line  number  100  plus  the  specified 
increment,  and  each  successive  line 
number  is  incremented  by  the  value 
you  specified  when  you  activated 
AutoPRINT.  When  you  use  Auto- 
PRINT to  add  PRINT  statements  to 
an  existing  program,  the  statements 
are  placed  at  the  end  of  the  program, 
also  with  the  specified  increment.  If 
you  want  to  change  the  line  number 
increment,  type  POKE  6,x  (where  x 
is  the  desired  increment). 

Commodore  64  AutoPRINT 

Please  refer  to  "COMPUTE! 's  Guide  to  Typing  In 
Programs"  before  entering  this  lisfing, 

10  FOR  1=51000  TO  51282 :READ  A 

:CH=CH+A:POKE  I.AiNEXT 

: rem  145 
20  IP  CH<> 37572  THEN  PRINT" 

{CLR) (DOWN 1  ERROR  IN  DATA":E 

ND  :rem  238 

30    PRINT     '■{CLRH2    DOWNJaUTOPRI 

NT  IS  NOW  LOADED"   : rem  232 

40  A=10: INPUT  "LINE  NUMBER  INC 

REMENT  (l-255)";A:POKE  6, A 

:reni  186 

50  PRINT  "TO  ACTIVATE,  TYPE  SY 

S  51000"  :rem  141 

60  PRINT  "AND  PRESS  RETURN" :NE 

W  :reni  155 

70  DATA  32,207,255,169,1,141 

:rem  94 
80  DATA  92,200,169,0,133,253 

: rem  91 
90  DATA  169,4,133,254,169,100 

:rein  150 
100  DATA  133,2,169,0,133,3 

:rem  234 
110  DATA  165,43,133,251,165,44 

:rein    190 
120    DATA    133,252,160,0,177,251 

irem  183 


130  DATA  170,200,177,251,240,1 
9  :rein  235 

140  DATA  72,200,177,251,133,2 

:rem  134 
150  DATA  200,177,251,133,3,104 

srem  180 
160  DATA  134,251,133,252,24,14 

4  rrem  236 
170  DATA  227,162,24,160,2,24 

:reni  87 
180  DATA  165,2,101,6,133,2 

rrem  238 
190  DATA  145,251,165,3,105,0 

:rem  87 
200  DATA  133,3,200,145,251,200 

:reni  168 

210  DATA  169,153,145,251,200,1 

69  -.Tern   38 

220  DATA  34,145,251,200,140,79 

:rem  186 
230  DATA  200,169,0,141,80,200 

srem  125 
240  DATA  172,80,200,177,253,41 

rrem  190 
250  DATA  128,240,14,173,82,200 

!rem  186 
260  DATA  208,23,169,1,141,32 

:rem  94 
270  DATA  200,169,18,208,39,17  3 

:rein  203 
280  DATA  82,200,240,9,169,0 

:rera  43 

290  DATA  141,82,200,169,146,20 

8  :rem  248 

300  DATA  25,177,253,41,127,201 

srem  187 
310  DATA  32,144,9,201,64,144 

•.rem   87 
320  DATA  9,201,96,144,3,24 

:rem  248 
330  DATA  105,32,105,32,200,140 

jrem  169 
340  DATA  80,200,172,79,200,145 

:rem  139 

350  DATA  251,200,140,79,200,17 

2  :rem  233 

360  DATA  80,200,192,40,208,181 

:rem  189 
370  DATA  172,79,200,224,0,208 

trem  14  2 
380  DATA  1,136,169,34,145,251 

rrem  149 
390  DATA  200,169,59,145,251,20 
0  :rem  246 

400  DATA  169,0,145,251,200,24 

srem  132 
410  DATA  152,101,251,72,165,25 
2  srem  235 

420  DATA  105,0,160,1,145,251 

:rein  76 
430  DATA  141,81,200,136,104,14 

5  :rem  231 
440  DATA  251,133,2  51,173,81,20 

0  :rem  235 

450  DATA  133,252,24,165,253,10 
5  :rem  241 

460  DATA  40,133,253,144,2,230 

:rem  133 
470  DATA  254,202,43,3,76,119 

:rem  103 
480  DATA  199,160,0,152,145,251 

:rem  198 

490  DATA  200,145,251,24,200,15 

2  :rem  231 

500  DATA  101,251,170,165,252,1 

05  :rem  24 

510  DATA  0,163,134,45,132,46 

rrem  92 
520  DATA  134,47,132,48,134,49 

rrem  151 
530  DATA  132,50,96,0,0,0,0 

rrem  228 

That's  all  there  is  to  it.         © 


IS  THIS  ANOTHER 
DUMB  £OWER  STRIP? 

CERTAINLY 
NOT! 


THIS  IS  THE  NEW 

lUBKING  ON  OM  WILl  'lOW  tURN  ON  ALl  IHE 
OrHEBSAUtOMAIICAUf 

Vh  [Ml  rj  rn,  newtv  tK  rioi!  :on(ei«fT 
conporcnl  tar  joj'  ccputcf  ifilF"  TV  Sn-jl 
Sl'«  tHi  1I8#  ififi  10  tVtC  V>r  Ott^  Hi  yOL' 

lu4iMif  VI  vn  «v<l  im  Sffun  Sifip  mit  MO- 
mHCJMr  mn  Cii  ri«  rm  Dl  vw  ItUfm  IV  iw  q 
grMl  you  ifilBn  cornu  r*i  p«t(Cts  JQimf] 
M-U^flfl  111*  Kl«t^S  iisa  Ji/'^ 

. SURGE  PHOtECIION        ^Aa  SOLID  SlilE 

•  lOOQWAlI  CiPACiT*  •Aluminum  MOUSING 
•srACcmEDOutLtiS  fob  xmfb  plug  ins 

flej   569  95 

Lfmlled  Introductory  OHer— $54.95 

S3  50  Shipping  U.S.A.  —  Salislaction  Guaranleea 


nSRMinullclurIng 

6337  S  Highland  Drive.  Suiie  (05J 
Sal:  Lake  Cily.  Ulati  WIZI 


UASTEiiCMflCt 


Maxell  Floppy  Disks 

The  Mini-Disks 
with  maximum  quality. 


Dealer  inquiries  invited.  CO.D's  accepted. 
Call  FREE  (800)  235-4137. 


PACinC  EXCH/WGES 

100  Foottiiil  Blvd.  San  Luis 
San  Luis  Obispo.  CA  93401 
InCal  call  1800)  592-5935  or 
(8051543.1037 


KIMBER-LINK 

COMMUNICATIONS  SOFTWARE 
FOR  THE  COMMODORE  64* 


•  Easy  to  use  •   Printer  support 

•  Transfer  ASCII  /  Binary  1iles 

•  Error-free  transfer  protocol 

•  Interactive  data  capturing 

•  Works   with    integral    and    external 
(serial  bus  connected)  modems 

•  Compatible  with  Batteries  Included 
80  column  cartridge 

ONLY  $49.00 

KIMBERTEK,  INC. 

P-O.  Box  743  Phoenixville.  PA    19460 

(215)  933-9714 

Money  OriJer,  Certified  check.  Personal  and 
business  checks  must  clear  bank  first.  No  COD 
or  credit  cards.  Add  5%  (S5.00  minimum)  ship- 
ping and  handling.  All  sales  are  final.  PA 
residents  add  6%  sales  tax.  Pnce  and  availa- 
bility subiect  to  change, 

'Tlvt  Commodore  International  Ltd.  ' 
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Computers  and  Society 

David  D.  Thornburg 


Compilers,  Interpreters, 
And  Flow:  Part  1 

For  the  next  three  months,  this  col- 
umn is  going  to  discuss  program- 
ming— not  from  the  standpoint  of 
the  language  that  is  used  (although 
that  will  play  a  role},  but  rather  from 
the  standpoint  of  the  relationship 
between  the  programmer  and  the 
creative  programming  environment. 
The  environment  in  which  the  pro- 
gram is  created  and  operates  can 
determine  our  feelings  about  a  lan- 
guage and  even  the  type  and  com- 
plexity of  the  programs  we  write. 

Most  of  us  have  written  pro- 
grams of  our  own  at  one  time  or 
another.  In  all  likelihood,  we've 
used  a  language  like  BASIC  operat- 
ing under  a  programming  environ- 
ment called  an  interpreter.  An 
interpreter  represents  one  of  two 
major  types  of  programming  envi- 
ronments. The  other  type  is  called  a 
compiler.  From  the  user's  perspec- 
tive, these  environments  are  quite 
different. 

With  an  interpreter,  you  have 
the  ability  to  execute  a  program  one 
instruction  at  a  time,  fix  mistakes  on 
the  fly,  and  tinker  endlessly  with  the 
program  with  no  apparent  penalty 
in  programming  and  testing  time. 
When  using  a  compiler,  you  typical- 
ly create  code  with  a  text  editor. 
Once  the  program  is  finished,  the 
compiler  translates  the  listing 
(called  source  code)  into  a  form  that 
can  be  executed  by  the  computer 
(called  object  code).  One  advantage 
of  complied  programs  is  that  they 
typically  run  many  times  faster  than 
interpreted  programs.  Two  disad- 
vantages are  that  you  generally  lose 
the  ability  to  easily  check  the  opera- 
tion of  the  program  step  by  step  as  it 
is  written,  and  that  programming 
mistakes  are  often  uncovered  only 
during  compilation  (a  potentially 
lengthy  process). 

I  think  a  programmer's  interac- 
tion with  a  language  can  be  influ- 
enced more  by  whether  the  program 

82     COMPUTEI     July  1985 


is  compiled  or  interpreted  than  it  is 
by  the  language  itself.  I'm  not  sug- 
gesting that  the  choice  of  program- 
ming language  does  not  make  a 
difference — it  does.  For  example, 
the  current  interest  in  languages 
such  as  Logo  and  Pascal  in  educa- 
tion is  finally  allowing  BASIC  to 
take  its  well-deserved  place  in 
history. 

The  Environmental  Impact 

I  believe  the  ability  to  establish  a 
good  sense  of  flow  with  the  pro- 
gramming process  determines  the 
enjoyability  and  subsequent  feeling 
of  success  when  a  program  is  com- 
pleted and  is  functioning  properly. 
My  reasons  for  feeling  this  way 
come  from  many  observations  over 
the  years.  For  example,  one  of  the 
complaints  I've  heard  about  Logo  is 
that  it  is  "slow"  and  a  "memory 
hog."  A  complaint  I've  heard  about 
Apple's  original  Pascal  is  that  it  is  a 
very  hard  programming  language  to 
use.  A  similar  complaint  has  been 
leveled  against  Apple's  version  of 
PILOT  (though  not  against  Atari's 
version). 

What  are  the  bases  of  these 
conunents?  None  has  anything  to  do 
with  the  programming  language  it- 
self. In  fact,  each  deals  with  the 
programming  environment — espe- 
cially whether  the  particular  version 
of  the  language  being  described  is 
interpreted  or  compiled. 

For  example,  Logo's  reputation 
for  slowness  and  inefficient  memory 
use  is  a  direct  result  of  the  fact  that 
most  versions  of  Logo  operate  under 
a  highly  interactive  and  flexible  in- 
terpreter. Because  Logo  variables 
can  represent  many  different  types 
of  data  (numbers,  words,  lists),  and 
Logo  does  not  require  (or  allow)  the 
user  to  specify  the  data  type  when 
defining  a  variable  name,  each  use 
of  a  variable  must  have  its  type 
checked  prior  to  performing  an  op- 
eration, and  this  takes  time.  Other 
time-consuming  aspects  of  inter- 
preted Logo  have  to  do  with  the 


recursive  nature  of  Logo  programs 
and  the  dynamic  "scoping"  of  vari- 
ables— the  manner  in  which  Logo 
keeps  track  of  values  for  variables 
that  are  used  in  different  levels  of  a 
recursive  procedure. 

The  tradeoff  in  Logo  is  one  of 
ease  of  use.  The  structure  of  Logo 
makes  it  an  excellent  choice  for  cre- 
ating programs  ranging  from  expert 
systems  to  new  computer  languages. 
But,  while  the  language  itself  allows 
programmers  to  express  magnificent 
programming  ideas  efficiently,  the 
operating  environment  associated 
with  most  versions  is  so  cumber- 
some that  the  language  is  rarely 
used  to  write  large  programs — they 
just  run  too  slowly. 

A  Logo  Compiler 

The  solution  is  quite  simple.  In  addi- 
tion to  having  an  interpreter  for  cre- 
ating and  teshng  procedures,  the 
Logo  programmer  also  should  have 
access  to  a  compiler  that  translates 
the  final  program  into  object  code 
for  rapid  execution. 

When  I  brought  up  this  topic  at 
the  Logo  84  conference  at  the 
Massachusetts  Institute  of  Technol- 
ogy last  year,  I  argued  that  without  a 
compiler,  Logo  would  remain  a 
"gymnasium  for  the  mind."  Unlike 
many  people  who  use  Logo  purely 
as  a  child's  introduction  to  program- 
ming, I  need  Logo  to  create  pro- 
grams that  would  be  very  difficult  to 
write  in  any  other  language  except 
LISP. 

For  reasons  I  have  yet  to  under- 
stand, the  established  Logo  vendors 
argued  that  I  shouldn't  want  a  com- 
piler— that  I  should  just  wait  for  a 
faster  interpreter.  I  was  amused  by 
this  response,  because  LISP  compil- 
ers have  made  it  possible  for  these 
companies  to  create  commercial  ver- 
sions of  Logo  in  the  first  place. 

Fortunately,  one  vendor  has 
created  a  Logo  compiler  for  a  per- 
sonal computer.  Next  month  we'll 
explore  the  benefits  of  this  new 
Logo  environment,  © 


The  World  Inside  the  Computer 


Fred  D'lgnazio,  Associate  Editor 


Here  Come  The  Toy 
Robots! 

Toy  Fair  was  a  vertical  conference 
staged  this  spring  in  three  Manhat- 
tan skyscrapers,  buffeted  by  howling, 
blustery  winds  and  giant  raindrops 
that  appeared  to  be  falling  sideways. 
I  attended  Toy  Fair  to  preview  the 
new  high-tech  learning  toys  and  ro- 
bots that  will  appear  on  toy  store 
shelves  this  fall.  Hasbro  Bradley  and 
Tonka  Toys  have  the  most  widely 
known  robots — the  Transformers 
and  the  GoBots.  But  there  are  also 
many  other  toy  robots,  including: 

•  Maxx  Steele  &  Robo-Force  Robots 
from  CBS/Ideal  Toys. 

•  Robotix  construction  kits  from 
Hasbro. 

•  "Bot"  family  of  robots  from 
Tomy — The  Pocketbots,  Dingbot, 
Flipbot,  Chatbot,  Owlbot,  Verbot, 
Omnibot,  and  Omnibot  2000. 

•  Tomy's  Robo-Strux  robot  construc- 
tion kits. 

•  MOVIT  family  of  build-it-yourself 
robots  from  OWI. 

•  Petsters  (Dogster  &  Catster), 
Compu-robot,  Andy  the  Personal- 
ity Robot,  and  Talkabot  from 
Axlon. 

•  Elami  "robot  friends"  from  'North 
American  Robotics. 

I  think  robot  toys  will  become 
the  first  real  robots  to  enter  people's 
homes  as  true  consumer  products. 
Toy  companies  are  putting  their  ro- 
bots on  the  market  only  after  exten- 
sive product  testing  for  safety,  ease 
of  use,  durability,  and  play  value. 
They  also  realize  that  robots  are 
unlike  other  appliances  in  the  home 
and  are  more  like  toys.  Today's  ro- 
bots have  little  functional  value,  but, 
as  a  toy,  they  can  provide  hours  of 
enjoyment  and  learning.  The  real 
magic  of  robots  is  when  they  appear 
lifelike,  "petlike,"  and  loaded  with 
personality. 

The  more  costly  robot  toys,  like 
Omnibot,  HEROjr  (also  available  in 


kit  form),  Maxx  Steele,  Andy,  and 
Elami  all  come  with  distinct  person- 
alities. HEROjr  is  the  most  lovable 
and  absent-minded  of  the  robots. 
He  recites  nonsense  rhymes,  mis- 
takes dogs  and  cats  for  humans,  or- 
ders hamburgers  and  fries  from  the 
bathroom  sink,  and  sings  "Old  Mac- 
Donald  Has  a  Robot"  to  the  waste- 
paper  basket. 

Children  can  play  games  like 
Moon  Ball  with  Maxx  Steele  and 
teach  him  to  play  their  own  musical 
compositions.  They  can  break  dance 
with  Omnibot  (using  the  cassette 
recorder  buUt  into  his  chest).  And 
they  can  play  robot-tag  with  Elami 
and  go  on  make-believe  maze  ad- 
ventures like  "Journey  to  the  Crystal 
Mines." 


Andy  the  Personality  Robot  has  a  pro- 
grammable personality  and  can  be  con- 
trolled with  a  Commodore  64  or  Atari 
home  computer. 

Even  the  inexpensive  robot  toys 
have  personality,  the  Transformers, 
the  GoBots,  and  the  Robo-Force 
action-figure  robots  all  have  names, 
comic  books,  and  heroic  storylines 
that  take  children  (and  parents)  on 
life-or-death  missions  to  faraway 
galaxies  and  the  remote  future. 


Maxx  Steele  is  a  two-foot  tall  robot  with 
a  150-word  vocabulary  and  20  prepro- 
grammed phrases.  His  claw  is  nearly  as 
flexible  as  a  human  wrist. 

The  builder-kit  robots — like  the 
Movits,  the  Erector  Set  Maxx  Steele 
robots,  the  Robo  Strux,  and  the 
Robotix — are  appealing  because 
they  let  you  and  your  children  build 
a  robot  on  your  own.  And,  although 
they  are  challenging,  the  kits  take 
only  a  couple  of  hours  to  assemble, 
and  require  no  soldering  or  special 
skills. 


Tomy's  Omnibot  2000  has  a  remote  con- 
troller and  retails  for  about  $500.         ^ 
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For-Next:  Part  3 

In  the  past  two  columns,  we've  dis- 
cussed how  to  construct  FOR-NEXT 
loops  and  apply  them  in  practical 
ways  to  automate  repetitive  tasks. 
But  you  might  be  surprised  to  learn 
that  another  very  common  use  of 
FOR-NEXT  is  to  make  a  loop  which 
does  absolutely  nothing. 

Sounds  crazy,  doesn't  it?  Why 
would  anybody  write  a  routine 
which  does  nothing?  Okay,  so  1  ex- 
aggerated a  little.  These  kind  of 
loops  don't  do  absolutely  nothing. 
They  just  make  the  computer  idle  in 
neutral  for  a  few  moments. 

Suppose  your  program  needs  to 
pause  for  a  brief  period.  Perhaps  it  is 
displaying  a  title  screen,  or  printing 
instructions  that  are  scrolling  off  the 
screen  too  fast  for  people  to  read. 
One  answer  is  a  delay  loop: 

10  FOR  X  =  l  TO  1000 
20  NEXT  X 

You  simply  insert  this  loop 
wherever  you  want  the  delay.  The 
computer  spins  its  wheels  for  1,000 
passes  and  then  carries  on.  By 
changing  the  size  of  the  loop,  you 
can  force  a  delay  for  a  fraction  of  a 
second  or  a  minute  or  more. 

Loops  Within  Loops 

As  yet  another  example  of  the  flexi- 
bility of  FOR-NEXT,  you  can  also 
put  a  loop  within  a  loop,  or  even  a 
loop  within  a  loop  within  a  loop 
within  a  loop.  These  are  called  nest- 
ed loops.  However,  there's  a  rule  you 
have  to  follow  to  avoid  confusing 
your  computer  (not  to  mention 
yourself).  Each  related  FOR  and 
NEXT  must  be  completely  con- 
tained within  the  loop  immediately 
surrounding  it: 


10  FOR  X  =  l  TO  10 

20  PRINT 

30  PRINT  "OUTER  LOOP  #";X 

40  PRINT 

50  FOR  Y  =  l  TO  10 

60  PRINT  'TNNER  LOOP  #";Y 

70  FOR  Z  =  l  TO  200 

80  REM  DELAY  LOOP 

90  NEXT  Z 

100  NEXT  Y 

110  NEXT  X 

This  program  looks  so  unusual 
that  the  best  way  to  understand 
what's  going  on  is  simply  to  run  it. 
The  PRINT  statements  will  tell  you 
which  loop  is  executing  during  each 
pass;  notice  how  the  inner  loop  exe- 
cutes ten  times  for  each  pass  of  the 
outer  loop. 

The  key  point  here  is  the  NEXT 
statements  at  lines  90, 100,  and  110. 
Observe  how  the  Z  delay  loop  is 
nested  completely  within  the  Y 
loop,  which  in  turn  is  nested  com- 
pletely within  the  X  loop.  If  you 
change  the  order  of  the  NEXT  state- 
ments, the  program  won't  work. 

Nested  loops  are  handy  when 
you  need  to  insert  a  delay  loop  with- 
in a  larger  loop  that  is  doing  some- 
thing else  too  quickly.  Another 
application  is  embedding  a  smaller 
repetitive  routine  within  a  larger  re- 
petitive routine.  For  instance,  let's 
take  another  look  at  the  checkbook 
routine  in  last  month's  column.  It 
adds  up  all  the  checks  written  in  a 
month: 

10  PRINT  "HOW  MANY  CHECKS 

THIS  MONTH"; 
20  INPUT  CH 
30  FOR  X  =  l  TO  CH 
40  PRINT  "AMOUNT  OF  CHECK"; 
50  INPUT  AM 
60  SUM  =  SUM -I- AM 
70  NEXT  X 
80  PRINT  'TOTAL  AMOUNT  IS 

S";SUM 


To  make  this  routine  sum  up  all 
the  checks  written  in  a  year,  you 
could  simplv  surround  it  udth  a 
FOR-NEXT  loop  that  performs  12 
passes.  Add  or  change  these  lines: 

5  FOR  Z  =  l  TO  12 

8  SUM  =  0 

80  PRINT  "AMOUNT  FOR  MONTH 

";Z;"  IS  $";SUM 
90  YR  =  YR-I-SUM 
100  NEXT  Z 

110  PRINT  "TOTAL  FOR  YEAR  IS 
$";YR 

Line  5  begins  the  outer  loop. 
Line  8  is  necessary  to  clear  out  the 
value  of  SUM  for  each  monthly  cal- 
culation. Line  80  prints  the  total 
amount  for  each  month.  Line  90 
creates  a  new  variable,  YR,  to  keep  a 
running  total  of  the  yearly  amount. 
Line  100  repeats  the  outer  loop.  And 
line  110  prints  the  final  total  of  all 
the  checks  written  during  the  year. 

Next  month  we'll  continue  our 
discussion  of  FOR-NEXT  by  show- 
ing how  to  make  long-legged  loops 
and  even  backward  loops.  © 
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DISK  WORLD!,  Inc. 

Suite  4806  •  30  EastHuronStreet^Chicago, lllinos  60611 


DISK 
WORLD! 


AIHANA 

DISKETTES 
The  great  unknown! 


QQC    -00  $-109 

You've  used  these  diskettes  hundreds  of 
times... as  copy-protected  originals  on  some  of 
the  most  popular  software  packages.  They're 
packed  in  poly-bags  of  25  with  Tyvek  sleeves, 
reinforced  hubs,  user  identification  labels  and 
write-proteci  tabs. 


LIFETIME  WARRANTY! 


SOFT  SECTOR  ONLY!    Sold  in  multiples 

of  50  only. 

for  orders  only;  informations 

1-800-621-6827  inquiries: 

(In  Illinois:  1-312-944-27B8)         1-312-944-2788 

HOURS:  BAM-SPM  Central  Time.  Monday-Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  inc. 

Suite  4806  •  30  East  Huron  Stteet  •  Chicago,  lllinos  50511 


DISK 
WORLD! 


ATHANA 
AuttwrliedDlttnixitor    MAGNETIC 


Nail  down 
great  prices  on 

MEMOREX 
diskettes! 

LIFETIME  WARRANTY! 


$128L  „$170 

I  oty.  20  £sDD         |   ^'V  =° 

MEMOREX  DISKETTES  come  vjitri 
fieavy.  lintiess  paper  sleeves,  reinforced 
tiubs,  write-protecl  labs  and  user  ID 

3  5- MICROFLOPPIES       cncTCcrinn  nMlvi  5'..-OSD0  H[l 

SSOD-135TPI  SOFT  SECTOR  ONLY!  FORIBMPC-M 

SZ.44ea      MINIMUM  ORDER  2Q  DISKETTES      S3.IS9ea 

INFORMATION  &  INQUIRIES: 

1-312-944-2788 

HOURS:  8AM-5PM  Central  Time 

Monday- Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  OUANTITIESI 

DISK  WORLD!,  Inc. 

Suile  4806  •  30  East  Huron  Street  •  Ctiicago,  lllinos  60611 


DISK 
WORLD! 
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Li;co  Computer  Marketing  &  Consultants 


^^    I  SAVE  ?  -  PRINTERS  I   i^^ 


AXION 

GP  550  AT  (Atari) 249 

GP  550  CD  (C-64)  249 

GP  550  PC  nBM) 239 

GP  550  AP   Apple)  279 

GP  700  AT    Atari),    .  459 

GP  700  AP    Apple) 459 

Elite  5CD  (C-64y       329 

BLUE  CHIPS 

M12010 S275 

M12010C-64  S275 

C.  ITCH 

Prownler  8510  AP       .  279 

8510  BC2 389 

8510  BP1 3ia 

SSiO  SP 379 

8510  SR    429 

8510  SCP 469 

8510  sen 479 

7500  AP 205 

7S00  AP 245 

1550  P - 449 

1550  BCD 489 

A-10-20-P 459 

F  10  40  PU  or  HDU  .   ,      888 
FlO  SSPU  or  RDU  1069 


CARDCD 

LQ1 369 

LQ3  279 

CITIZEN 

MSP-IO 329 

MSP-15 499 

MSP-20 479 

M.SP-25  649 

COMREX 

Cfl-ll-ECComfter  IIEPaiallel  359 

CB-II-ES  Comriiei  II  E  Parallel  379 

CR-IV-C  Comriler  IV  Parallel  689 

CR-IV-S  Comritsr  IV  Serial  689 

Corona 

LP300  Laser  Prinlfi  ?699 

200361  Tonei  Canndgt         89 

DIGITAL 
DEVICES 

16K  pi. rite'  butler  99  7b 

33K  D'lnter  butler  119  76 

bdK  [jiiOlt-r  riull<-r  1  69  ft  J^ 


EPSON 

RX-80  . 

RX-aO  FT- 

FXlOO- 

-225 
.279 
...579 

jxeo 

...529 

LQ  1500  P 

LQ  1500  S 

HI-80  Color  Plotter 

,1089 
1149 
399 

JUKI 

Juki  6100 

RS  232  Serial  Board 

Tracmr ,  . 

Sheet  Feeder 

Juki  6300 

379 

55 

,119 

-209 

769 

LEGEND 

880 
1080 

219 
239 

1200      

249 

-^    PRINTER 

• 

INTERFACING 

Available 

MANNESMANN  TALLY 

Spirit  80 255 

tiTL-160L                              -549 

MTL-180L 

739 

NEC 

NEC  S0J5 

S699 

NEC  80J7 

,5359 

OKIDATA 

Okitnaie  lO 

aaA ., 

,    ,179 
295 

84 

645 

92 

....349 

93 ,- 

92  Imagewnter 

92  IBM  Version 

,..-565 
,..,425 
,,,.349 

OLIVETTI 

DY  250  Parallel 

DY  250  Serial 

DY  450  Parallel,      , 
DY  450  Serial 

.,  .739 
-    729 
,1099 
1079 

PANASONIC 

1090  , 189 

1091 259 

1092 395 

1093 589 

3151 459 


Smith  Corona 

Fasleil  BO 18900 

D 1 00 ,   2 1 9  00 

D200        39900 

D300     51900 

.1000  33900 


STARMICRONICS 

SG-10 219 

Sg-15 379 

SD.10 339 

SD.15 445 

SR-IO 489 

SR.15 585 

Powertype 309 

Gemini  lOX CALL 

Gemini  15X CALL 

S6-10 CALL 


?  OVER  2000  SOFTWARE  TITLES  IN  STOCK  * 


COMPUTER 
CARE 


PRINTING 
PAPER 


DISKETTES 


BIB 

DISK  DRIVE 

CLEANER ...S127S 

COMPUTER  CsRE  KIT  ...  $  1 9  75 

NORTRONICS 

DISK  DRIVE 

CLEANER 

with  software  for 

IBM-PC,  Atari,  Vic, 

DISK  DRIVE  Cleaner  *itn 
software  tor  laW'PC   Atari   v.c 
Apqle   Tl S29  75 

DISK  Cleaner 

REFILL S14  75 

CASSORIVE  CLEANER...  S9  95 
MEDIA  BUL  K  E  RASE  R  . . .  S46  75 

NEC 

PC8201  PortaBie    $429 

NECB1  64K  Compijler 

System S1049 

NECB2  126  K  ComputBr 

System S1?99 

PCa22t  TherrralPrinler...i  139 
PC8201  HK^AMChip  ...S  99 
PC8?0632KRAMCart...  $    299 

PC300  Modem J..S      65 

PC880!  MSDOS 

16  Bit  Cam S    339 


3000  SHEETS 

FANFOLD .,S42  75 

10OO  SHEETS 

FANFOLD $19  75 

10OOSHEETL6TTER...S21  96 
200  SHEETS  LETTER....  SB  99 
150  HAG  STATIONARY...  $10  99 
MAILING  LABELS(lin|...I9  95 
1 4  «  1  1   1  000 

FANFOLD S?4  75 

INNOVATIVE  CONCEPTS 

Flip-n-Flle  10 3.50 

Fhp-n.File  IS 8.25 

Fhp-n.File  25  Lock 17.95 

Flip-n-File  50 17.25 

Fhp.n.File  50  Lock 22,95 

Flip.ft.File  Ri3m 17.25 


SKC 

lBo«  10) 

5%"  SKC.SSSD  ,  10  99 

S'/."  SKC.SSDD,         ,  13  99 

S"..'  SKC.DSOO    15  99 

ELEPHANT 

(Bon  10) 

5Va'-  SSSD 13.99 

5Va-SSDD 15,99 

5Vi'    DSDD    19,99 

MAXELL 

SV4"  MO-t 16,99 

5Va"  MD-2 23,75 

(Bo»  1 01 


DRIVES 


IBM-PC 

SOFT-WARE 


MSD 

SD1  Drive 229 

SD2  Drive 469 

INDUS 
GT  Atari    ....219 

GTAtan       219 

GT  Commodore  249 

GT  Apple  w/controllef  219 

GT  Apple  169 


•LOTUS 

Lotus  1-2-3 309.00 

Symphony       , 439.00 

*ASHTON-TATE 

Framework 385  00 

d  Base  II ..,. 289  00 

d  Base  III 385,00 

d  Base  II  upgrade 135  00 

'PARADISE 

5-Pak  Multifunction 179.00 

Modular  Graphics 289,00 

Modular  Graphics  Card        315  00 


IBM-PC 

COMPATABLE 
CORONA 

PPC  22A 

Poriable  256K.Amber  1F99 

PPC  2SG 

Portable  2S6-K.Green  1699 

PPCXTA 

Portable  256K-iOM5n  2B99 

CORI28K  12BKRAM  1599 

Zenith 

2-150  Call 

Leading  Edge 

PC  Compataeie  Can 

'LEADING  EDGE 

Nutstlell 69  95 

LEWP  Basic 65  00 

LEWP  Merge  Prim  99  00 

LE  Spell  Correclion  169  00 

•QUADRAM 

Quad  J r  Eiip  Ctiassis  519  00 
Quad  Jr   Ejp   Memory     209  00 

Quad  Memory  Jr 209  00 

Ouadcolor  I -,209.00 

*STB 

Super  R10-64K 279,00 

Super  R10-192K  ,  399  00 
Super  R10-25BK  ,  ,  ,449.00 
Graptiics  Plus  [I 339.00 

•PARADISE 

Multi-Disolav  Card         335  00 

CONTINENTAL 

Home  Accountant.  85  00 


TOLL  FREE  1-800-233-8760 


TO  ORDER 


CALL    TOLL    FREE 


O'  send  order  to 


Lyco  Computer 
P  O    Boi  5088 
Customer  Service  1-717-327-1825  Jersey  Shore    PA  1  7740 


800-233-8760 


RISK  FREE  POLICY 

ln-5lock  Item  shipped  wilfiin  2<J  tiours  ol  order  No  deposit  on  C  O  D 
orders  Free  shipping  on  prepaid  casti  orders  wilfiin  the  Continental  U  S, 
PA  residents  add  sales  iai  APO,  FPO.  and  Intemalional  orders  add  IS  00 
plus  3'>6  lor  pnorily  mail  service  Advertised  prices  show  4%  discount  for 
cash,  add  4%  tor  Master  Card  or  Visa,  Personal  cfieeks  require  4  weeks 
clearance  belore  shipping  All  items  subiect  lo  change  without  notice 
For  your  protection,  we  checit  for  stolen  credit  cards. 


M   ••••••••••••••••••••••••••••••••••••  )f 
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"BRAND  NEW/FACTORY  FRESH  MERCHANDISE!"        "WE  OFFER  FULL  LINE  OF  ACCESSORIES!" 

I  JK  ATARI  >in|aPPlGl|COMMODORE| 


ATARI 

BOO  XL  Computer CALL 

1050  Drive ...169 

1010  Recorder 44 

1020 S5 

1025 185 

1027 239 

850 109 


SYNAPSE 

■    (ATARI) 

Synfile 34.95 

Syncalc 34.95 

Syncomm ...27.95 

Syntrend 27,95 

Synchron 27.95 

Synstock 27.95 


SCARBOROUGH 

Net  Worlh 49  95 

Masierlype 24,75 

Improved  Maslertype..  .2475 
Mastertype's  Filer 24,75 


SPINNAKER 

Delia  Drawing  Room       19,95 

Cosmic  Lile  Hoom 19.95 

Up  for  Grabs  Room 19  95 


SSI 

Baseball 22.75 

Question 26.76 

50  Mission  Crush 22.75 

Broadsides 22.75 

Computer  Ambush 34.75 


Trillium 

Shadowkeep  S26  75 

Fahrentieil  451  S26-75 

Amaion   E26  75 


MICROPOSE 

Sola  Fiigtit 22.75 

NATO 22,76 

Spilf[re  Ace t9  95 

F-1 5  Strike  Eagle  22  75 


CONTINENTAL 

Home  Accountant 44.75 

:985  Booii  ol  Alain  Sollware    1 6.95 


SUBLOGIC 

Flight  Simulator  II 32.75 

Night  Mission  Pinball  .     18  75 

PERSONAL 
PERIPHEIALS 

Super  Skelcti-Atari  32  95 


BRODERBUND 

Bank  St   Writer  42.75 

Ttie  Print  Shop 29.95 

Serpents  Star  24,75 

Spelunker 19,95 

Sfealtti 19.95 


BUSINESS 


VISICALC 

LETTER  PERFECT  B 
DATA  PERFECT 
FILE  MANAGER 
HOME  FILE  MGR 


SI  59  75 
59  00 
jag '5 
S69  75 
S69  75 


Scarborough 

Songwriter     . 

Picturewrit  

Phi  Beta  F 

Mastenyp* 

Run  f  Woney         

Nel  Worth 

Mlcropro8« 

Solo  Flight 

NATO    

Spillire  

F-1 5  Strike 
Air  Rescue 


ADVENTURE 


SSI 


Dishey 

Ultra  Disassembler 


29  95 
29  95 


GRAPHIC  TABLET 


Super  Slietch 
Koala  Pad... 


32,95 
59  95 


EASTERN  HOUSE 

Monkey  Wrench  ilBOO  24  95 

Mortkey  Wrencti  11900  XL      24  95 

CONTINENTAL 

Home  Accountant  44  9S 

1985  Scok  c' Alan  So'lwa'E        16  95 

ADVENTURE  INTERNATIONAL 

DIskey 32  75 

Ultra  Dissambler 32  75 

WICO 

(Joystici^s) 

15-9714  Bat  Handle 16,99 

50-2002  Super  3-way  . ...19,99 
72-4545  Trackball   29,99 


Baseball 
Questfon 
Germany  19B5 
50  Missions 

Spinnaker 

Alphal^et 
Story  Machine 
Kids  on  Keys 
Grandma 
Snooper  Troop 

Broderbund 

Bank  St  Wnlei 
Bank  St   Filer 
Bank  St  Mailer 
Bank  Si  Seen 
Mask  ot  Sun 
Print  shop    .    . 

Lode  Runnel 


SZ4  75 
124,75 
S32,75 
■S24  75 
S32  75 
»54  75 

S22  75 
S22  75 

S22  9S 
$22  75 
$22  75 

$22  75 
$26  75 
$32  75 
$21  75 


$18  ?5 
519  75 
$1875 
$19  75 
$22  75 


$42  75 
S42  76 
$42  75 
$42  75 
$24  96 
32  95 
$22  Hb 


Graphics  Tablet 

Supersketcri 


S49  95 
S84  95 


COMMODORE 

Simon's  Basic    24  75 

Assembler  64 34,75 

Super  Expander 22,75 

Logo  64 49.75 

Pilot  64 38.75 

Easy  Cale 34.75 

Easy  Script 38.75 

C  64  Computer CALL 

C  1541  Disk  Drive 195 

IvIPS  301  Printer  175 

C  1702  Monitor 209 

C  ld3i  Datasette            39  75 
C  1660  Auto  liflodem 85 

SSI 

(C-64) 

Computer  Baseball 24.75 

Field  ol  Fire 24.75 

Computer  Quarterback.  24.75 

Questran 24,75 

50  Mission  Crush 24,75 

Scarborough 

Songwnter     $24  75 

Phi  Beta  F    S29.aS 

Mastedype $24.75 

Run  I  Money  $24.75 

NetWonh  $49,96 

SUBLOGIC 

(C-64) 

Flight  Simulator  II 32.75 

Iviight  Mission  Pinball 22.75 

PERSONAL  PERIPHERALS 

Super  Sketch  64       ,  .     32  75 
Printer  Utility 18  75 

KOALA 

(C-64) 
Koala  Pad 59.95 


MODEMS 


MICROBITS 

MPP  1000  E  lAtanl  99  OU 

MPP  1064  (C-64  69.95 


HAYES 

Smartmodem  300 1B9 

Smartmoden  1200 459 

Smartmoben  1200B 389 

l^icromodem  liE 249 

Micromodem  100 289 

Ch'onooraph 179 

Smart  Com  II  75 


TELE  LEARNING 

CM-250  (C-64) 65.00 

AP-2bO  lApplB) 109.95 

IB-250(fBM) 109.95 


CARDCO  MOD-l  (C.64I         CALL 

I>JESTRIDGEJC-64) CALL 

MITEY  MO  (C-64) CALL 

1660  AUTO  MODEM  (C-641 15 

COMPUSERVE 23.95 


CARDCO 

C/Ol  Wriie  Now  29,95 

C/02  Write  Now-  64  ..  39.95 
D/01  Mail  Now -64  ...  29.00 
D/04  Spell  t^ow  -  64  ... .   29.00 

D/02  Utility  Desk 19.95 

CSO-1  Disk  Drive  (new)  CALL 
MOO-1  Modern  (new)  CALL 
D/03  Tax  Payer  (newj  27  95 
D/07  Calc  Now/64  (new]  27,95 
D/OB  super  Pnnler  Utility 
D/06  Super  Pnnter 

Utility 27  95 

CK/1  NumencKeyPad-  -  34  96 
DC/1  Data  Cassette  ,  39  95 
CB/5  5  Slot 

Board  C-64 54  00 

CR/1  Light  Pen 29,75 

ce/1  Cassette  Interface  29.75 
CB/3  3  Slot 

Board  Vic-20  24  95 

CB/6  6  Slot 

Board  Vic-20     ,  65  00 

HES 

HES  Games  84  .22  95 

Omni  Writer/Spell      34,95 

HESMon64   23.95 

Microsoft  tilultiplan 55.00 

Type  N  Write  19.95 

Turtle  Graphics  II 23,95 

Cell  Defense  22.95 

Paint  Brusli 12.95 

TiiMatti   22.95 

Graptiics  Basic  27.95 

HES  Kit    29.95 

Millionaire 23.95 

64  Forth 24.95 

HES  Writer  64 24.96 

Timeworks 

■  Inventory $32.75 

Sales         S3275 

Accls   Rec $3275 

Accts   Rec $32  75 

°  Ledger  ,3975 

Data  l^gr    $147S 

Checkbook $1475 

Star  Battle    $14  75 

Cave  ot  Word  $16  75 

Microprose 

Solo  FliflW    $22  75 

NATO $22  75 

Spitfire       $1995 

F-15Stnke  $22,75 

Aif  Rescue  $22  75 


it     LOWEST  PRICES!     * 


AMDEK 

300  Green 125 

300  Amber  139 

310  Amber  IBM  155 

Color  300  Audio 245 

Color  500  Composite 369 

Color  600 429 

Color  700 495 

Color  710,,.,. 569 


JMONITORst 


*     SUPER  SPECIAL!      ic 


PANASONIC 

DT  1300  RGi  composite 


329 


SAKATA 

SC-100  Color 219 

STSI  Stand 29 

SG  1000  Green 99 

SA  1000  Amber  109 

PRINCETON  GRAPHICS 

MAX-12  Amber 189 

HX-12  RGB 475 

SH-12  RGB 599 


NEC 

JB-1260  Green 95 

JB-1201  Green 135 

JC  1215  Color 235 

JC  1216  RGB 375 

JC1460  Color 265 

JB  1205  Amber 139 

GORILLA 

12'  Green 78 

2"  Amber 84 


ZENITH 

2VM  122A  Amber      84 

ZVM  123G  Green 75 

ZVM  124  Amber  IBM    .  ,    129 

ZVM  131  Color 275 

ZVM  133  RGB 389 

ZVM  135  Composite 449 

ZVM  136  Hi  Res  Color.   .589 


TAXAN 

210  Color  flBG 249 

115  Green  119 

116  Amber ,  .  125 

400  Color  RGB 275 

410  Color  RGB  339 

420  Color  IBM  429 

121  Green  (BM 139 

122  Ambef  IBM  145 

X-TRON 

Comcolor  I  CompoMtc  Orccn-199 


AMERICA'S  MAILORDER  HEADQUARTERS 

LYCO     COMPUTER 

WORLD'S  LEADER  IN  SALES  &  SERVICE 


TO  ORDER 

CALL  TOLL  FREE 

800-233-8760 

In  PA1  717-327-1824 

Lyco  Computer 

P.O.  Box  5088 

Jersey  Shore,  PA  1/740 
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Telecomputing  Today 


Arlon  R,  Leviton 


Saving  Money  With  E-Maii 

There  are  tricks  to  conserving  your 
cash  if  you  spend  lots  of  time  access- 
ing commercial  information  services 
and  electronic  bulletin  board  sys- 
tems (BBSs).  One  of  the  best  tricks  of 
all  is  a  way  to  save  money  when 
using  electronic  mail  and  message 
systems.  E-mail  is  a  wonderfully  fast 
way  to  send  messages,  assuming  the 
person  to  whom  you  are  writing 
checks  his  or  her  electronic  mailbox 
regularly,  But  if  you're  a  slow  typist, 
you  might  as  well  send  your  letter 
via  an  overnight  carrier  service — it's 
that  expensive.  And  even  if  you're  a 
fast  typist,  the  cost  can  be 
significant. 

Why?  Because  information  ser- 
vices typically  charge  for  connect 
time  rather  than  the  amount  of  data 
transferred.  If  you  spend  15  minutes 
or  so  typing  in  a  lengthy  message,  it 
could  easily  cost  a  couple  of  bucks. 
And  even  a  "free"  BBS  often  re- 
quires a  long-distance  phone  call  to 
reach. 

The  problem  is  the  way  an  E- 
mail  service  or  message  system  re- 
quires you  to  enter  text  online.  Most 
systems  have  what's  called  a  line 
editor,  a  throwback  to  the  early  days 
of  timesharing  terminals  and  primi- 
tive word  processors.  Line  editors 
typically  allow  only  a  certain  num- 
ber of  characters  per  line  and  expect 
each  line  to  be  terminated  with  a 
carriage  return  (transmitted  bv  hit- 
ting the  RETURN  or  ENTER  key  on 
your  keyboard): 

1:  This  is  a  sample  of  how  entering 
text<CR> 

2:  into  a  line  editor  might  look.  The 
numbers<CR> 

3:  followed  by  a  colon  on  the  left- 
hand  edge<CR> 

4:  are  sent  to  us  by  the  remote  com- 
puter to<CR> 

5:  indicate  that  the  line  editor  is 
ready  for<CR> 

6:  a  new  line  of  text.  These  indica- 
tors are<CR> 


7:  called  prompts.  Line  editors 

usually<CR> 
8:  require  a  line  with  nothing  but  a 

carriage<CR> 
9:  return  to  terminate  the  file  being 

typed  in.<CR> 
10:  <CR> 

Editing  messages  with  a  line 
editor  is  incredibly  cumbersome,  es- 
pecially if  you  want  to  insert  or  de- 
lete blocks  of  text.  And  you  can 
forget  about  such  taken-for-granted 
word  processing  features  as  global 
search  and  replace,  vertical  scroll- 
ing, full-screen  editing,  etc. 

Now  here's  the  trick:  If  you 
write  the  message  before  logging  on, 
you  can  upload  it  into  the  line  editor 
in  a  small  fraction  of  the  time  re- 
quired to  type  it  in  directly.  And  that 
saves  money.  Many  terminal  pro- 
grams allow  you  to  send  files  one 
line  at  a  time  with  the  transmission 
of  each  line  tied  to  a  user-definable 
prompt.  If  your  terminal  program 
has  such  a  feature,  you  can  upload  a 
previously  prepared  text  file  directly 
into  the  remote  system's  line  editor. 

Furthermore,  if  you  prepare  the 
message  offline,  you  can  use  a  word 
processor  that  is  much  more  versa- 
tile than  the  online  text  editors.  Just 
be  sure  the  word  processor  stores 
the  text  in  standard  ASCII  format  to 
insure  that  the  file  does  not  contain 
unreadable  characters.  Terminate 
each  line  with  a  carriage  return. 
Most  online  editors  accept  up  to  80 
characters  per  line. 

Uploading  Tlie  I^Aessage 

After  creating  the  text  file,  save  it  on 
disk,  start  your  terminal  program, 
and  log  onto  the  remote  system.  En- 
ter the  commands  that  bring  up  the 
line  editor. 

Set  your  terminal  program  for  a 
paced  line-by-line  transfer  keyed  on 
the  appropriate  prompt  character.  In 
the  above  example,  the  prompt 
character  is  a  colon  (:).  Then  send 
the  file,  sit  back,  and  watch  as  your 


computer  quickly  enters  the  text  into 
the  line  editor  for  you. 

Some  line  editors  are  particu- 
larly hostile;  they  don't  even  have 
prompts.  You  can  usually  solve  this 
problem  if  your  terminal  software 
has  the  ability  to  wait  for  a  specified 
period  of  time  between  lines.  While 
not  a  sure  thing,  a  delay  of  a  second 
or  two  between  lines  is  usually 
enough  to  insure  a  successful 
upload. 

When  writing  your  text  offline, 
you  may  find  it  inconvenient  to  re- 
member to  insert  a  carriage  return  at 
the  end  of  each  line.  Most  word 
processors  require  a  carriage  return 
only  to  mark  the  end  of  a  paragraph, 
not  a  line.  But  there  is  a  way  to  get 
around  this  problem.  Some  word 
processors  allow  you  to  print  docu- 
ments to  a  disk  file  as  well  as  to  a 
printer.  If  you're  careful  to  omit  any 
formatting  instructions  that  would 
embed  escape  codes  in  the  file,  the 
result  will  be  just  what  you  need — a 
file  of  pure  ASCII  text  with  a  car- 
riage return  at  the  end  of  each  line. 
You  may  have  to  experiment  with 
margin  settings  to  get  the  line 
lengths  just  right,  but  this  trick  can 
save  you  a  lot  of  unnecessary 
keystrokes. 

Over  the  past  few  columns, 
we've  covered  the  fundamentals  of 
uploading  and  downloading.  If  you 
need  more  help,  take  advantage  of 
one  of  your  most  valuable  resources. 
Attend  a  local  computer  user  group 
meeting  and  make  friends  with 
some  of  the  experienced  telecom- 
puting buffs.  You'll  find  that  modem 
aficionados  tend  to  be  an  extremely 
gregarious  bunch  of  folks  who  are 
always  willing  to  help  newcomers  to 
telecomputing.  © 
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IBM  Personal  Computing 


Donald  B.  Trivefte 


An  Old-Fashioned 
Database 

I  lose  telephone  numbers.  I  scribble 
them  on  magazines,  scraps  of  paper, 
counter  tops — any  place  that's 
handy — but  when  I  go  back  to  find 
them.... 

What  was  once  only  an  incon- 
venience has  become  a  financial  an- 
noyance now  that  the  phone 
company  is  charging  50  cents  for 
long-distance  directory  assistance. 
Now  that  it  costs  more  to  get  the 
number  than  it  does  to  actually 
place  some  calls,  I  figured  I  might 
save  money  by  using  one  of  those 
desk-management  programs. 

These  programs  run  usually  in 
the  background,  which  means  they 
hide  in  the  computer's  memory  until 
they're  needed.  In  the  meantime, 
you  can  use  Lotus  1-2-3  or  Volks- 
writer  or  almost  any  other  program. 
Then,  when  you  want  to  jot  down  a 
phone  number,  you  press  an  unusu- 
al key  combination — say  Ctrl-Shift- 
Alt — and  your  desk-management 
menu  pops  on  the  screen.  Pops  up 
right  on  top  of  your  1-2-3  spread- 
sheet or  whatever  you  were  doing. 
Once  you've  finished,  everything 
hustles  back  into  memory  and  you 
can  pick  up  where  you  left  off. 
Great  idea. 

These  programs  often  have  oth- 
er features  like  a  calculator,  a  note- 
book, a  calendar,  and  a  phone 
dialer.  (To  use  the  dialer,  the  com- 
puter must  be  connected  to  a  modem 
and  a  phone  line.) 

I  tried  it,  but  it  wasn't  for  me.  In 
the  first  place,  I  wasn't  usually  at  the 
computer  when  I  wanted  to  make  a 
call  or  write  down  a  number.  In  the 
second  place,  I  could  look  the  num- 
ber up  and  punch  it  out  on  the 
phone  faster  than  I  could  go  through 
all  the  desk-management  rigmarole. 
And  in  the  third  place,  it  seemed  like 
every  time  I  got  the  cursor  posi- 
tioned on  the  number  I  wanted,  the 
phone  would  ring.   I  wasn't  sure 


whether  to  turn  the  computer  off  or 
answer  the  phone  or  what.  It's 
amazing  how  a  computer  can  make 
dialing  a  phone  number  so  compli- 
cated, although  I  suppose  many 
people  probably  use  these  programs 
every  day  and  love  them. 

Rolodex  To  The  Rescue 

I  decided  the  best  solution  to  my 
problem  was  a  manual  database  of 
phone  numbers,  such  as  a  Rolodex. 
In  case  you've  never  had  one,  a 
Rolodex  is  a  device  with  2  x  4-inch 
cards  attached  to  a  drum  so  you  can 
quickly  flip  from  card  to  card.  Its 
chief  disadvantage  is  that  after 
heavy  use  the  cards  wear  out  and 
must  be  recopied. 

The  Rolodex  Corporation 
hasn't  sat  on  its  corporate  hands 
while  being  challenged  with  new- 
fangled computer  software.  Rolo- 
dex's Compucard  program  ($49.95) 
turns  an  IBM  PC  into  an  electronic 
Rolodex.  Although  this  may  be  great 
for  a  corporate  phone  operator,  it's 
no  better  than  the  desk-management 
software  for  me.  Maybe  worse — it 
doesn't  run  in  the  background. 

But  Compucard  can  also  be  used 
to  generate  and  maintain  an  old- 
fashioned  hardcopy  Rolodex.  Once 
you've  entered  al!  your  numbers 
and  addresses  in  the  program,  you 
can  print  them  on  continuous-form 
Rolodex  cards.  It's  easy  to  make  a 
copy  for  each  phone,  or  a  copy  for 
each  salesperson,  or  a  copy  for  each 
branch  office. 

Compucard  is  not  what  I  would 
call  a  well-designed  program.  For 
example,  it's  sold  with  a  default 
setting  that  requires  two  disk  drives. 
This  can  be  changed  so  that  the 
program  and  data  can  be  on  the 
same  disk,  but  you  can't  make  the 
change  unless  you  can  get  the  pro- 
gram to  run  in  the  first  place,  and  it 
won't  run  without  two  ciives.  Is  that 
logical? 

Nevertheless,  since  you  only 
need  to  use  Compucard  each  time 


you  generate  another  phone  list, 
you  can  live  with  a  few  drawbacks. 
The  program  does  make  it  easy  to 
format  the  information  on  the  Rolo- 
dex cards.  A  card  outline  is  dis- 
played on  the  screen  and  a  simple 
full-card  editor  lets  you  enter  text  in 
a  what-you-see  is  what-you-get 
manner. 

Easy  Updating 

One  nice  feature  of  Compucard  is 
that  it  automatically  stamps  two 
dates  on  each  card — one  for  the  date 
the  record  was  originally  entered 
and  another  for  the  last  update. 
Every  so  often  you  can  print  out  new 
copies  of  only  those  records  most 
recently  updated.  When  all  the  cards 
are  worn  out,  it  takes  only  a  few 
minutes  to  print  a  new  set. 

Compucard  lets  you  enter  two 
file  tabs  for  each  record.  On  my 
Rolodex,  I  use  one  for  the  alphabeti- 
cal name  and  the  second  for  a  generic 
classification.  Which  brings  us  to  an 
important  point  about  creating  a 
database — any  database. 

It  is  essential  to  think  through 
the  classifications  and  organization 
of  data  before  entering  it.  Once 
you've  settled  on  a  plan,  test  it.  Use 
the  data  for  a  few  days  before  you 
enter  hundreds  of  records.  With 
most  database  systems,  it  is  not 
easy — and  sometimes  impossible — 
to  change  the  organization  and 
classification  of  the  data  once  it's 
entered. 

According  to  the  book  In  One 
Day  by  Tom  Parker  (Houghton  Miff- 
lin, 1984),  your  name  and  my 
name — all  our  names — pop  up  in 
computer  memory  35  times  every 
day!  Please  don't  add  needlessly  to 
the  computer  clutter  by  having  your 
computer  do  things  that  are  better 
done  by  hand.  Sometimes  the  old 
methods — or  the  old  methods  with 
some  computer  assistance — are  the 
best.  © 
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Programming  the  Tl 


C  Regena 


Using  Tl  Logo  II 

Logo  is  probably  the  most  popular 
second  language  on  Tl  computers 
(after  BASIC).  That's  because  Tl 
Logo  is  a  versatile,  entertaining  lan- 
guage, especially  for  young  people. 
If  you  liked  Tl  Logo,  you'll  like  Tl 
Logo  II  even  better. 

Tl  Logo  II  adds  several  improve- 
ments. It's  compatible  with  any  kind 
of  printer,  thermal  or  RS-23'2  (the 
old  Logo  could  only  use  the  thermal 
printer).  Tl  Logo  U  uses  sprites  as 
before,  but  now  you  can  make  them 
big  or  small.  It  also  has  three- 
channel  music  capabilities. 

You  can  save  both  procedures 
and  custom  characters  on  cassette  or 
disk.  Tl  Logo  11  requires  the  32K 
Memory  Expansion. 

Tl  Logo  11  comes  with  a  large 
loose-leaf  binder,  a  200-page  man- 
ual, a  Tl  Sampler  booklet  of  proce- 
dures and  educational  activities,  a 
sample  disk  in  a  vinyl  loose-leaf 
holder,  a  sample  cassette,  and  the 
actual  logo  cartridge  in  a  plastic 
holder  that  fits  in  the  binder. 

The  manual  has  been  revised 
since  the  first  version  of  Tl  Logo.  It  is 
well  illustrated  and  has  plenty  of 
sample  procedures.  Chapter  12  is  a 
glossary  of  Logo  Primitive  Com- 
mands. If  you  are  familiar  with  other 
versions  of  Logo  and  just  need  a 
quick  reference  guide,  this  section  is 
a  big  help.  There  is  also  a  one-page 
Keyboard  Reference  Guide  which 
summarizes  the  key  functions.  If 
you  need  the  details  of  a  command, 
there  is  a  comprehensive  index. 


Versatile  Sprite 
Commands 

sprites  (smoothly  moving  screen 
objects)  are  a  feature  of  IJ  Logo  that 
children  really  enjoy.  Thirty-two 
sprites  are  available.  You  can  use  the 
five  predefined  shapes,  or  you  can 
create  your  own  with  MAKESHAPE. 
You  may  SETCOLOR  (16  colors  to 
choose  from)  and  SETHEADING  to 
position  the  sprite.  You  can  move 
certain  distances  with  the  regular 
turtle  commands  such  as  FOR- 
WARD and  LEFT.  Or  you  can  SET- 
SPEED,  which  continuously  moves 
an  object.  And  you  can  FREEZE  and 
THAW  sprites.  Logo  11  also  has  the 
commands  BIG  and  SMALL. 
SMALL  is  the  original  sprite  size; 
BIG  makes  them  twice  as  large.  This 
means  greater  fun  with  sprite 
animation. 

Music  is  the  main  reason  I 
bought  Tl  Logo  11.  Like  regular  Tl 
BASIC,  there  are  three  voices  avail- 
able plus  a  noise  generator  and 
drum.  You  can  execute  other  com- 
mands while  music  is  playing, 
which  enables  you  to  synchronize 
the  music  with  animated  graphics. 

The  MUSIC  command  consists 
of  numbered  notes  and  numbers 
which  represent  the  rhythm  or  dura- 
tion of  the  notes.  You  may  also  SET- 
TEMPO  and  choose  between 
STACCATO  and  LEGATO.  PM  or 
PLAYMUSIC  will  play  the  music 
you  have  put  in  the  music  buffer 
with  either  the  MUSIC  command  or 
a  series  of  NOTE  commands.  You 
may  also  SET  VOLUME,  and  of 
course  add  a  DRUM  rhythm  accom- 
paniment. The  manual  gives  de- 
tailed instructions  on  how  to  use 
MUSIC. 


The  main  disappointment  I  had 

with  Tl  Logo  II  was  that  the  sample 
programs  that  came  on  the  disk  and 
cassette  were  created  with  Logo  / 
and  did  not  exploit  the  music  fea- 
tures. Following  is  a  program  which 
illustrates  music  and  sprite 
animation. 


MAKESHAPE  6 


MAKESHAPE  7 


Custom  Shapes 

First  you  want  to  define  some  cus- 
tom shapes.  Type  MAKESHAPE  6 
and  copy  the  spider  pattern.  Next 
MAKESHAPE  7  for  the  other  pat- 
tern. When  the  grid  appears,  use  the 
arrow  keys  to  move  around.  When 
you  want  to  blacken  a  square,  press 
the  FCTN  key  as  you  move. 
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Now  type  in  the  following  pro- 
cedures. Feel  free  to  use  the  two- 
letter  abbreviations,  SS  is 
SETSPEED  and  designates  how  fast 
a  sprite  will  go.  SH  is  SETHEAD- 
ING  and  points  the  sprite  in  a  cer- 
tain direction.  CARRY  indicates 
which  shape  number  the  sprite 
should  be.  SC  is  SETCOLOR  for  the 
color  of  the  sprite,  PU  and  PD  are 
PENUP  and  PENDOWN. 

To  run  the  program,  type  SPI- 
DER and  press  ENTER  (in  command 
mode),  CS  clears  the  screen  and  CM 
clears  the  music  buffer.  WAIT  is  a 
command  to  wait  a  certain  time 
before  executing  more  statements  in 
the  procedure.  1  used  WAIT  to  help 
choreograph  the  graphics  with  the 
music.  If  you  get  the  message  OUT 
OF  INK  while  the  web  is  being 
drawn,  simply  type  SPIDER  again 
and  ENTER.  You  may  save  your 
characters  and  procedures  on  disk  or 
tape.  To  reload  it  later,  use  the  com- 
mand RECALL.  To  get  a  hard  copy 
listing,  use  PRINTOUT, 

A  Few  Answers 

I'm  going  to  take  just  a  little  room 
this  month  to  answer  some  general 
questions  I'm  asked  quite  often.  Yes, 
Texas  Instruments  still  services  their 
home  computers,  even  though  they 
are  no  longer  selling  them.  Call 
1-800-TI-CARES  or  write  to  the 
Lubbock,  Texas  address  listed  in 
your  user's  manual. 

I  still  see  lots  of  third-party  soft- 
ware available.  If  you  registered 
your  computer  when  you  purchased 
it,  you  should  be  on  various  mailing 
lists.  Of  course,  it's  a  good  idea  to 
keep  in  touch  with  a  user  group  for 
ongoing  information  (and  there  are 
still  many  strong  user  groups).  Most 
of  us  who  have  written  for  the  TI 
still  love  the  computer  and  will 
probably  continue  to  write  for  it 
forever. 

Add-on  hardware  for  the  TI  is 
still  being  developed  and  produced. 


CorComp  has  developed  several 
kinds  of  peripherals,  along  with  a 
number  of  other  companies. 

And,  of  course,  all  the  COM- 
PUTE! books  for  the  TI  are  still 
available.  If  you  don't  see  them  in 
the  larger  bookstores,  you  may  or- 
der directly  from  COMPUTE!. 

Thanks  to  all  of  you  who  wrote 
to  ask  if  the  algebra  tutorial  pub- 
lished for  the  TI  in  the  October  1984 
COMPUTE!  is  available  for  the  Com- 
modore 64.  The  answer  is  now  yes.  I 
do  write  for  a  variety  of  computers, 
but  this  column  describes  the  TI  ver- 
sion only. 

Spider  For  TI  Logo  II 

TO  CM 

SET VOICE  0 
SET VOICE  1 
END 

TD  TUNE! 

MUSIC  C0  5  5  5  7  9  fJll    2  12  1 

2  23 
MUSIC  15  7  5  7  9  53  C 1  2  1  2  1  43 

END 

TD  TUNE2 

MUSIC  C9  9  10  12  12  10  9  10  12  9 

3C2  2  12  2  2  12  14: 
END 

TO  SUN 

TELL  SPRITE  9 

CARRY  :BALL 

SS  0  SH  0  FD  30   LEFT  90  FD  100 

SC  10 

END 

TD  WEB 

REPEAT  a  CFORWARD  45  BACK  45  RIG 
HT  45] 


HOME  FORWARD  20 

RIBHT  120  FORWARD  15 

REPEAT  3  CRT  30  FD  15  RT  60  FD  15: 

RT  30  FD  15 

PU  HOME  FORWARD  25  PD 

RIBHT  120  FORWARD  20 

REPEAT  3  CRT  30  FD  19  RT  60    FD  193 

RT  30  FD  20 

PU  HOME  FD  32  PD 

RIBHT  120  FORWARD  24 

REPEAT  3  CRT  30  FD  24  RT  40  FD  24: 

RT  30  FD  25 

END 

TO  SPIDER 

CS  CM 

TELL  :ALL 

SC  0 

FREEZE 

HOME 

TELL  TURTLE 

HIDETURTLE 

HOME 

TUNEl  TUNE2  TUKE2  TUNEl  PM 

WEB 

TELL  SPRITE  6 

CARRY  A 

SH  130 

FD  30 

SH  0 

SC  1 

THAW 

SS  1 

TELL  SPRITE  7  SS  0  HOME 

CARRY  7  WAIT  200 

SH  0  FD  80 

SH  1B0  SC  4  SS  10 

TELL  SPRITE  B 

CARRY  7  SS  0  HOME 

SH  0  FD  t0  LEFT  90  FD  15 

SH  180  SC  4  SS  10  WAIT  60 

TELL  SPRITE  6  SH  180  SS  10 

WAIT  60  FREEZE 

TELL  SPRITE  7  SC  0 

TELL  SPRITE  8  SC  0 

WAIT  100 

SUN  WAIT  200 

TELL  SPRITE  6  SH  0  SS  2  THAW 

END  O 


Copy  Atari  WO/iOO/XL  Ssrisi  Cartridge  to  Disk 
and  run  them  from  a  Menu 


ATARI  CARTRIDGE-TO-DISK  COPY  SYSTEM  $69.95 

Supertatt  tels  yov  copv  A/JY  carTfiflga  fg.  !hc  Atari  400,  SOO   XL  Senes  to  (JySkoiIO.  and  Ifiereattei  njn  n 
ffom  youi  auk  diiwo-  Enjoy  Iha  convenieoco  ol  seltrglima  youj  favoriiB  games  liom  a  "m*nu  screen" 
laihfff  than  swapping  camtdfles  in  and  out  of  your  compuWf.  Eaih  cartridge  cotwed  bv  Supercan  lunc- 
lions  Bx.ic^!v  ''*<•  the  omitfal.  Supetzan  includos' 
•  DISKFTTE  with: 

COPV  PROGRAM  ■  Copies  the  CaHridoe  to  a  diskeiie  (up  to  3  Carjridgos  will  ti\  on  one  disk.) 
M£NU  f  flOGRAM  ■  Aijiomaiieallv  runs  and  displays  a  msnu  pfompling  u»!r  (oi  a  ONE 
»  CAflTRlDGF-  kevsiroke  selection  of  Sry  canrjtfge  on  [he  dish 

"Tricks"  ;he  compuier  imo  thinking  that  the  Ofigirval  "copy  protected"  canridge  Iras  been 
irtserted- 
Tfl  date  there  have  bean  no  problems  duplicepng  and  running  all  oi  the  proiKted  canridges  that  we 
know  of.  Howevnr.  FRONTRUNNEH  camot  guaraniw)  the  operaifon  of  art  future  carrndflCS.  Superuan  is 
uset-friendfy  ^t^a  5^^^p^a  to  us* and  requires  no  modificaTJonp  of  your  hardware    PIRATESTAKE  NOTE- 
SUPERCARTisnoi  intended  fqr  diegal  copying  and/or  distribution  of  copyrighlBd  softwana       Sorjvli 
SV9TEM  REQUIREMENTS: 
Atari  400/800  Or  XL  Seties  Computer  /  4BK  Memorv  /  One  OiBk  Drivfr 
AvaiiablO  at  voui  computer  Stoio  01  dJreclliomfRONTRUN^ER-     DEALER  JNQUIfULS  EIS^CDURAGtiJ 
TOLL  FREE  ORDER  LINE:  (34  Hfs.]  l-H»-6«^/»/lr  Nevada  01  for  Quaalions  Call;  {7021  788^1800 
Personal  chocks  allow  2-3waflks  to  clear.  m/C  and  VISA  accepted, 

Include  S3. 50  <S7-G0  Foreign  crdars)  for  shipDmfl 
FRONTHUNNEH  COMPUTER  INDUSTRIES 
316  California  Ai.e  .  SuJie  tn]2.  Reno.  Mevada  ©505  -  1 702 ^  786-4600 

Others  Make  Chims        SUPERCART  makes  copies'" 


INSIGHT:  Atari 


Bill  Wilkinson 


Bargain  Basement 
Networking 

From  time  to  time  a  new  product 
comes  to  my  attention  which  stands 
above  the  rest  in  terms  of  per- 
formance and  value.  A  recent  ex- 
ample is  the  MicroNet  from  Micro 
Peripheral  Products  (MPP)  of  Albany, 
Oregon.  The  MicroNet  is  a  won- 
drously  simple  device  that  allows 
you  to  connect  up  to  eight  Atari 
computers  (though  not  the  new  ST 
machines,  yet)  to  a  single  printer 
and  one  or  more  disk  drives.  You 
simply  connect  a  standard  Atari  se- 
rial cable  (the  kind  that  goes  from 
the  computer  to  the  disk  drive, 
printer  interface,  etc.)  from  each 
computer  to  any  of  eight  sockets  on 
the  deceivingly  small  MicroNet  box. 
Then  you  connect  a  similar  cable 
from  the  MicroNet  to  the  drives  and 
printer,  just  as  if  the  MicroNet  were 
an  Atari  computer.  The  result?  All 
eight  computers  think  the  disk 
drive(s)  and  printer  are  their  very 
own!  Well  .  .  .  almost. 

This  is  not  a  sophisticated  high- 
speed network  with  several  mega- 
bytes of  mass  storage  and  an 
automatic  printer  spooler  online.  It's 
still  using  the  clunky  19,200-baud 
Atari  serial  bus,  slow  enough  when 
only  one  computer  is  using  a  drive. 
With  eight  computers,  you  may 
have  to  wait  eight  times  as  long  to 
read  something  from  a  disk  (though 
a  delay  this  drastic  is  unlikely).  And 
what  about  printing?  You  sure  don't 
want  to  use  the  slow  Atari  1027 
printer  in  this  configuration!  Still, 
let's  take  a  look  at  situations  where 
this  system  makes  sense. 

First  and  most  obvious  is  the 
classroom.  A  teacher  can  put  the 
day's  lessons  on  a  disk  from  any  one 


of  the  computers,  write-protect  the 
disk,  and  then  let  each  student  boot 
his/her  own  computer  and  start  using 
the  appropriate  materials.  Or  the 
teacher  can  boot  each  computer — it 
would  take  only  two  or  three  min- 
utes. Reports  on  each  student's  per- 
formance could  be  kept  on  a  second 
disk  or  printed  on  the  shared  printer. 
The  total  cost  of  this  system, 
assuming  eight  computers?  Look  at 
the  chart  below.  Prices  are  rounded 
up  from  retail,  and  an  enterprising 
dealer  should  be  able  to  offer  a  sub- 
stantial discount  on  a  package  like 
this: 

8  800XL  or  65XE  computers   $  800 

8  color  TVs  or  monitors   $1600 

2  disk  drives    $  400 

1  fast  printer    $  400 

1  printer  buffer   $  200 

1  MicroNet    $  200 

TOTAL       $3600 

Chieaper  Than  Terminais 

Surprised  by  the  last  two  items?  The 
printer  buffer  is  recommended  by 
MPP.  By  spooling  printer  data  into 
the  buffer  at  high  speed,  a  single 
computer  won't  tie  up  the  MicroNet 
bus  for  so  long.  And  if  you  were 
surprised  at  the  low  cost  of  the 
MicroNet,  you  read  it  correctly:  The 
actual  suggested  retail  price  is  only 
$199.95.  Hard  to  believe! 

That  puts  the  per-station  cost  at 
$450,  less  than  the  price  of  a  black 
and  white,  nongraphics  terminal  on 
a  conventional  time-sharing  system. 
Or  about  one-third  the  cost  per  sta- 
tion of  an  Apple  lie  network  system. 

Could  the  MicroNet  be  used  for 
business  applications?  Well,  maybe. 
A  big  fat  maybe.  The  MicroNet  pro- 
vides no  file  protection  whatsoever. 
No  password  security.  No  way  of 


stopping  user  No.  2  from  zapping 
user  No.  I's  files.  Etcetera.  And 
there's  certainly  nothing  to  prevent 
two  users  from  trying  to  write  to  the 
same  disk  file  at  the  same  time.  Lots 
of  potential  problems.  The  easiest 
solution  is  to  write  software  which  is 
alert  to  the  possible  problems. 

For  example,  the  MicroNet 
gives  exclusive  control  of  the  disk 
drive  to  a  single  computer  long 
enough  for  it  to  create  a  file.  A  pro- 
gram running  on  another  computer 
could  look  for  the  existence  of  that 
file  as  a  signal  that  it  could  not  write 
to  a  certain  database  file.  Sounds 
clumsy,  but  many  of  the  cheapie 
time-sharing  systems  of  the  1960s 
and  1970s  had  this  problem  and 
solved  it  the  same  way. 

The  MicroNet  system  can  defi- 
nitely be  crashed  if  its  users  are  hos- 
tile, and  that's  one  reason  I 
suggested  that  teachers  write- 
protect  their  master  disks  before  let- 
ting all  the  clever  kiddies  take  a 
crack  at  crashing  it,  (My  own  little 
seven-year-old  knows  that  crashing 
a  disk  means  he  doesn't  get  to  play 
on  the  computer  for  a  while.  He  is 
now  beautifully  conscientious  about 
popping  the  disk  before  turning  off 
the  power.) 

The  MicroNet  is  obviously  an 
economical  solution  to  some  prob- 
lems. It  is  not  all  things  to  all  people; 
but,  at  its  price,  it  is  certainly  worth 
looking  at.  (For  more  information, 
write  to  MPP  at  225  Third  Avenue 
SW,  Albany,  OR  97321.) 

Next  month:  Part  1  of  my  long- 
promised  series  on  Atari  input/out- 
put. Theory  and  a  little  bit  of 
practice.  See  you  then.  @ 
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COMPUTEI's  Guide 
To  Typing  in  Programs 


Before  typing  in  any  program,  you  should  famil- 
iarize yourself  witii  your  computer.  Learn  how  to 
use  the  keyboard  to  type  in  and  correct  BASIC 
programs.  Read  your  manuals  to  understand  how 
to  save  and  load  BASIC  programs  to  and  from 
your  disk  drive  or  cassette  unit.  Computers  are 
precise — take  special  care  to  type  the  program 
exactly  as  listed,  including  any  necessary 
punctuation  and  symbols.  To  help  you  with  this 
task,  we  have  implemented  a  special  listing 
convention  as  well  as  a  program  to  help  check 
your  typing — the  "Automatic  Proofreader," 
Please  read  the  following  notes  before  typing  in 
any  programs  from  COMPUTE!.  They  can  save  you 
a  lot  of  time  and  trouble. 

Since  programs  can  contain  some  hard-to- 
read  (and  hard-to-type)  special  characters,  we 
have  developed  a  listing  system  that  spells  out  in 
abbreviated  form  the  function  of  these  control 
characters.  You  will  find  these  special  characters 
within  curly  braces.  For  example,  {CLEAR)  or 
{CLR}  instructs  you  to  insert  the  symbol  which 
clears  the  screen  on  the  Atari  or  Commodore  ma- 
chines. A  symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If  you  see 
{A},  hold  down  the  CONTROL  key  and  press  A. 
Commodore  machines  have  a  special  control  key 
labeled  with  the  Commodore  logo.  Graphics 
characters  entered  with  the  Commodore  logo  key 
are  enclosed  in  a  new  kind  of  special  bracket,  A 
graphics  character  can  be  listed  as  \<A>\.  In  this 
case,  hold  down  the  Commodore  logo  key  as 
you  type  A.  Our  Commodore  listings  are  in 
uppercase,  so  shifted  symbols  are  underlined,  A 
graphics  heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT-SPACE}.  Hold 
down  SHIFT  and  press  the  space  bar. 

If  a  number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  [<8  Q>\,  you  would  enter  five 
cursor  rights,  six  shifted  S's,  or  eight  Com- 
modore-Q's.  On  the  Atari,  inverse  characters 
(printed  in  white  on  black)  should  be  entered 
with  the  Atari  logo  key.  Since  spacing  is  some- 
times important,  any  more  than  two  spaces  will 
be  listed,  for  example,  as:  {6  SPACES}.  A  space 
is  never  left  at  the  end  of  a  line,  but  will  be 
moved  to  the  next  printed  line  as  {SPACE}. 
There  are  no  special  control  characters  found  in 
our  IBM  PC/PCjr,  TI-99/4A,  and  Apple  program 
listings.  For  your  convenience,  we  have  prepared 
this  quick-reference  key  for  the  Commodore  and 
Atari  special  characters: 


Atari  400/800/XL 


hen    you    see 


Type 


CCLEflR> 

EBC 

SHIFT  < 

•f 

ClBur  Scresn 

CUPJ 

ESC 

CTRL  - 

* 

Curitjr  Up 

CDONN} 

ESC 

CTRL  - 

* 

Cursor  OoMH 

tLEFTJ 

ESC 

CTRL  + 

*■ 

Cursor  L»4t 

<RIOHT> 

ESC 

CTRL  * 

■* 

Cursor  Right 

CBflCK  SJ 

ESC 

DELETE 

^ 

Backspace 

CDELETE> 

ESC 

CTRL  EKLETE 

U 

Delete  character 

t  INSERT) 

ESC 

CTRL  INSERT 

u 

Insert  character 

CDEL  LINE) 

ESC 

SHIFT  DELETE 

a 

Delete  linB 

CINS  LINE5 

ESC 

SHIFT  INSERT 

a 

Insert  line 

{TflB> 

ESC 

TAB 

y 

TAB  key 

{CLR  TAB> 

ESC 

CTRL  TAB 

a 

Clear  tab 

{SET  TAB) 

ESC 

SHIFT  TAB 

a 

Set  tab  stop 

{BELL) 

ESC 

CTRL  2 

□ 

Ring  buzzef- 

(ESC) 

ESC 

ESC 

^. 

ESCape  key 

Commodore  PET/CBM/VIC/64 


When  You 
Read: 

[CLR) 

( HOME ) 
(UP) 

(down) 

I  LEFT ) 
[RIGHT] 

(rvs) 
[off) 
(elk) 

(MHT) 

[red) 
[cyn) 
[pur) 


Press: 


S66* 


[  SHIFT 

CLR'HOME 

ClRiHOMt 

SHIFT 

4  CRSR  ^ 

4  CRSR  ^ 

E3I 


^CRSR-*1  I  I 


j^-CRSIl-»j 


11 


When  You 
Read:         Press: 

[GRNJ 
[BLU) 
(YEL) 

[fD 

IF2) 
[F3) 
(F4) 
[F5) 
{F6} 
[F7i 

(F8J 

< 

T 


: 


Caa* 

□ 

Eg 


[^ 


m 


The  Automatic  Proofreader 

Also,  we  have  developed  a  simple,  yet  effective 
program  that  can  help  check  your  typing.  Type 
in  the  appropriate  Proofreader  program  for  your 
machine,  then  save  it  for  future  use.  On  the  VIC, 
64,  or  Atari,  run  the  Proofreader  to  activate  it, 
then  enter  NEW  to  erase  the  BASIC  loader  (the 
Proofreader  will  still  be  active,  hidden  in 
memory,  as  a  machine  language  program).  Press- 
ing RUN/STOP-RESTORE  or  SYSTEM  RESET 
deactivates  the  Proofreader.  You  can  use  SYS  886 
to  reactivate  the  VIC/64  Proofreader,  or  PRINT 
USR(1536)  to  reenable  the  Atari  Proofreader,  The 
IBM  Proofreader  is  a  BASIC  program  that  lets 
you  enter,  edit,  list,  save,  and  load  programs  that 
you  type.  It  simulates  the  IBM's  BASIC  line  editor. 

Using  The  Automatic  Proofreader 

Once  the  Proofreader  is  active,  try  typing  in  a 
line.  As  soon  as  you  press  RETURN,  either  a 
number  (on  the  Commodore)  or  a  pair  of  letters 
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(Atari  or  IBM)  appears.  The  number  or  pair  of 
letters  is  called  a  checksum.  Try  making  a  change 
in  the  line,  and  notice  how  the  checksum, 
changes. 

All  you  need  to  do  is  compare  the  value  pro- 
vided by  the  Proofreader  with  the  checksum 
printed  in  the  program  listing  in  the  magazine.  In 
Cottimodore  listings,  the  checksum  is  a  number 
from  0  to  255.  It  is  set  off  from  the  rest  of  the 
line  with  rem.  This  prevents  a  syntax  error  if  the 
checksum  is  typed  in,  but  the  REM  statements 
and  checksums  need  not  be  typed  in.  It  is  just 
there  for  your  information. 

In  Atari  and  IBM  listings,  the  checksum  is 
given  to  the  left  of  each  line  number.  Just  type  in 
the  program,  a  line  at  a  time  (without  the  printed 
checksum)  and  compare  the  checksum  generated 
by  the  Proofreader  to  the  checksum  in  the  listing. 
If  they  match,  go  on  to  the  next  line.  If  not, 
check  your  typing:  You've  made  a  mistake.  On 
the  Commodore  and  Atari  Proofreader,  spaces 
are  not  counted  as  part  of  the  checksum,  and  no 
check  is  made  to  see  that  you've  typed  in  the 
characters  in  the  right  order.  If  characters  are 
transposed,  the  checksum  will  still  match  the  list- 
ing. Because  of  the  checksum  method  used,  do 
not  use  abbreviations,  such  as  ?  for  PRINT.  How- 
ever, the  Proofreader  does  catch  the  majority  of 
typing  errors  most  people  make.  The  IBM  Proof- 
reader is  even  pickier;  it  will  detect  errors  in 
spacing  and  transposition.  Also,  be  sure  you 
leave  Caps  Lock  on,  except  when  you  need  to 
enter  lowercase  characters. 

Special  Proofreader  Notes  For 
Commodore  Cassette  Users 

The  Proofreader  resides  in  the  cassette  buffer, 
which  is  used  during  tape  LOADs  and  SAVEs. 
Be  sure  to  press  RUN/STOP-RESTORE  before 
you  save  or  load  a  program,  to  get  the  Proof- 
reader out  of  the  way.  If  you  want  to  use  the 
Proofreader  with  tape,  run  the  Proofreader,  then 
enter  these  two  lines  exactly  as  shown,  pressing 
RETURN  after  each  one: 

A$="PROOFREADER.T":B$="{10  SPACES}" 
:FORX = 1T04:  A$  =  A$  -I-  B$:NEXT 

FORX = 886TO1018:  A$  =  A$  -H  CHR$(PEEK(X)) 
:NEXT:OPEN  l,l,l,A$:CLOSEl 

Then  press  RECORD  and  PLAY  on  a  blank  tape, 
and  a  special  version  of  the  Proofreader  will  be 
saved  to  tape.  Anytime  you  need  to  reload  the 
Proofreader  after  it  has  been  erased,  just  rewind 
the  tape,  type  OPENl:CLOSEl,  then  press  PLAY. 
When  READY  comes  back,  enter  SYS  886. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the  comput- 
er's normal  BASIC  line  editor,  it  has  to  include 


many  of  the  direct-mode  IBM  BASIC  commands. 
The  syntax  is  identical  to  IBM  BASIC.  Com- 
mands simulated  are  LIST,  LLIST,  NEW,  FILES, 
SAVE,  and  LOAD.  When  listing  your  program, 
press  any  key  (except  Ctrl-Break)  to  stop  the  list- 
ing. If  you  enter  NEW,  the  Proofreader  will 
prompt  you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC  and 
CHECK.  BASIC  exits  the  Proofreader  back  to 
IBM  BASIC,  leaving  the  Proofreader  in  memory. 
CHECK  works  just  like  LIST,  but  shows  the 
checksums  along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk.  Then  exit  the 
Proofreader  with  the  BASIC  command,  and  load 
the  program  into  the  normal  BASIC  environment 
(this  will  replace  the  Proofreader  in  memory). 
You  can  now  run  the  program,  but  you  may  want 
to  resave  it  to  disk.  This  will  shorten  it  on  disk 
and  make  it  load  faster,  but  it  can  no  longer  be 
edited  with  the  Proofreader.  If  you  want  to  con- 
vert a  program  to  Proofreader  format,  save  it  to 
disk  with  SAVE  "fiIename",A. 

VIC/64  Proofreader 

100  PRINT" fCLR} PLEASE  WAIT . . . " :FORI=886TO10 

18 : READA : CK=CK+A  t POKEI , A ; NEXT 
110  IP  CK017539  THEN  PRINT"  [DOWN) YOU  MADE 

{SPACElAN  ERROR" :PRINT"IN  DATA  STATEMEN 

TS . " r  END 
120  SYS886:PRINT"{CLRj{2  DOWN} PROOFREADER  A 

CTIVATED." :NEW 
886  DATA  173,036,003,201,150,208 
892  DATA  001,096,141,151,003,173 
898  DATA  037,003,141,152,003,169 
904  DATA  150,141,036,003,169,003 
910  DATA  141,037,003,169,000,133 
916  DATA  254,096,032,087,241,133 
922  DATA  251,134,252,132,253,008 
928  DATA  201,013,240,017,201,032 
934  DATA  240,005,024,101,254,133 
940  DATA  254,165,251,166,252,164 
946  DATA  253,040,096,169,013,032 
952  DATA  210,255,165,214,141,251 
958  DATA  003,206,251,003,169,000 
964  DATA  133,216,169,019,032,210 
970  DATA  255,169,018,032,210,255 
976  DATA  169,058,032,210,255,166 
982  DATA  254,169,000,133,254,172 
988  DATA  151,003,192,087,208,006 
994  DATA  032,205,189,076,235,003 
1000  DATA  032,205,221,169,032,032 
1006  DATA  210,255,032,210,255,173 
1012  DATA  251,003,133,214,076,173 
1018  DATA  003 

Atari  Proofreader 


100 
110 

120 


•130 

140 


BRfiPHICS     0 

FOR     1=1536     TO     1700:READ     A:PQKE     I 

, A:CK=CK+A; NEXT     I 

IF  CKO19072  THEN  ?  "Error  in  DA 

TA  Statements.    Chect:  Typing.  ";E 

NO 

A  =  USR  (  1536) 

?  :?  "Automatic  Proofreader  Now 

Activated." 
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15(3  END 

270 

1536 

DATA 

104, 160, 0, 185, 26, 3 

1542 

DATA 

201 , 69, 240, 7, 200, 200 

1548 

DATA 

192.  34,  208!,  2  43,96,  200 

1554 

DATA 

169, 74, 153, 26, 3,200 

15&0 

DATA 

169, 6, 153, 26,3, 162 

1566 

DATA 

0, 189, 0, 228, 157, 74 

1572 

DATA 

6, 232, 224, 16, 208, 24  5 

280 

1578 

DATA 

169, 93, 141 , 78, 6, 169 

290 

1584 

DATA 

6, 141 , 79, 6, 24, 173 

300 

1590 

DATA 

4,228, 105, 1 , 141, 95 

1596 

DATA 

6, 173, 5, 228, 105, 0 

310 

1602 

DATA 

141  , 96, 6,  169, 0,  133 

160B 

DATA 

203, 96, 247, 2  38, 125, 241 

1614 

DATA 

93, 6, 244, 241, 115, 241 

320 

1620 

DATA 

124,241,76,205, 238,0 

1626 

DATA 

0,0,0,0,32,62 

330 

1632 

DATA 

246,8, 201 , 155,240, 13 

1638 

DATA 

201,32, 240,7,72,24 

340 

1644 

DATA 

101 , 203, 133, 203, 104, 40 

1650 

DATA 

96, 72, 152, 72, 138, 72 

350 

1656 

DATA 

160, 0, 169, 128, 145, 88 

360 

1662 

DATA 

200, 192,40,208,249. 165 

1668 

DATA 

203,74,74, 74,74.24 

1674 

DATA 

105, 161 , 160.3, 145,88 

1680 

DATA 

165,203,41 , 15,24, 105 

370 

1686 

DATA 

161 , 200, 14  5, 88, 169, 0 

380 

1692 

DATA 

133, 203, 104. 170, 104, 168 

390 

1698 

DATA 

104,40,96 

400 

410 

IBM  Proofreader 

420 
10  'Automatic  Proofreader  Version  2.00  (L 

ines  270,510,515,517,620,630  changed  f    430 
rom  VI. 0)  440 

100  DIM  L* < 500 ) ,LNUM< 500) -COLOR  0,7, 7: KEY 

OFF; CLS: MAX=0: LNUM (0) =65536 !  450 

110  ON  ERROR  GOTO  120:KEY  15, CHR* (4) +CHR*    460 

C70):ON  KEY < 15)  GQSUB  640; KEY  <15)  ON 

sGOTO  130  470 

120  RESUME  130 

130  DEF  SEG=StH40:W=PEEK<S<H4A) 
140  ON  ERROR  GOTO  650sPRINT:PRINT"PrDO-fre   480 

ader  Ready. "  470 

150  LINE  INPUT  L*;Y=CSRLIN~INT(LEN<L*)/W) 

-Is LOCATE  Y, 1 
160  DEF  SEB=0:PDKE  1050, 30: POKE  1052, 34 ;P 

OKE  1054,0;POKE  1055,79:POKE  1056,13:    500 

POKE  10S7,28:LINE  INPUT  LtiDEF  SE6:  IF 
L*=""  THEN  150  510 

170  IF  LEFT«(L*, 1)="  "  THEN  L«=MID« (L*, 2)    515 

:GOTO  170 
180  IF  VAL(LEFT«(L«,2)>=0  AND  MID* (L*, 3,1    517 

>="  "  THEN  L«=«ID»<L*,4>  520 

190  LNUM=VAL<L«> :TEXT«=«ID«(L«,LEN(STR*<L    540 

NUM) )+l) 
200  IF  ASC<L«>>57  THEN  260  'no  line  numbe    560 

r,  therefore  command 
210  IF  TEXT*=""  THEN  GOSUB  540; IF  LNUM=LN   580 

UM(P)  THEN  GOSUB  560; GOTO  150  ELSE  15 

0 
220  CKSUM=0:FOR  1=1  TO  LEN CL*> :CKSUM=<CKS   600 

UM+ASC(MID*(L«,I))»I>  AND  255; NEXT: LO 

CATE  Y,  1:PRINT  CHR«  <65-t-CKSUM/16) +CHRS    610 

<65+(CKSUM  AND  15))+"  "+L* 
230  GOSUB  540: IF  LNUM<P)=LNUM  THEN  L«(P)=   620 

TEXT*:GOTa  150  'replace  line 
240  GOSUB  580 J  GOTO  150  'insert  the  line     630 
260  TEXT«="":FOR  1=1  TO  LEN(L*) : A=ASC (MID   640 

« (L», I ) ) sTEXT«=TEXT«+CHR«  <A+32»  <A>96 

AND  A<123>):NEXT  650 


DEL  I M I TER= I NSTR  <  TE  XT* , "  " ) : COMMAND*=T 
EXT*!ARG*="":IF  DELIMITER  THEN  COMMAN 
D*=LEFT*(TEXT*,DELIMITER-1) sARe*=MID* 
<TEXT*,DELIMITER+1)  ELSE  DELIMITER=IN 
STR<TEXT*,CHR«<34>):IF  DELIMITER  THEN 

COMMAND*=LEFT«<TEXT«,DELl«ITER-l)!AR 
G«=MID* (TEXT*, DELIMITER) 
IF  CDMMAND«<>"LIST"  THEN  410 
OPEN  "scrn:"  FOR  OUTPUT  AS  #1 
IF  ARG*=""  THEN  FIRST=0iP=MAX-l! GOTO 
340 

DELIMITER=INSTR{ARG*, "-") : IF  DELIMITE 
R=0  THEN  LNUM=VAL(ARG«); GOSUB  540: FIR 
ST=P:QOTO  340 

F I RST=VAL( LEFT* (ARG*, DELIMITER) ) :LAST 
=VAL<MID* (ARG», DELIMITER+1 ) ) 
LNUM=F 1 RST : GOSUB  540 : F I RST=P : LNUM=L AS 
TsGOSUB  540; IF  P=0  THEN  P=MAX-1 
FOR  X=FIRST  TO  P;N*=MID* (STR* (LNUM (X) 
),2)+"  " 

IF  CKFLA6=0  THEN  A*="":GOT0  370 
CKSUM=0:A«=N*-«-L«(X)  :FOR  1  =  1  TO  LEN  (A* 
> : CKSUM= (CKSUM+ASC (MID* (A* , I ) ) *I )  AND 

255;NEXT;A*=CHR*(65+CKSUM/16)-i-CHR*(6 
5+(CKSUM  AND  15))+"  " 
PRINT  «1,A*+N*+L*(X) 
IF  INKEY«<>""  THEN  X=P 
NEXT  : CLOSE  *l!CKFLAG=0 
GOTO  130 
IF  COMMAND*="LLIST»  THEN  OPEN  "Iptl!" 

FOR  OUTPUT  AS  ttlsGOTO  300 
IF  COMMAND*^" CHECK"  THEN  CKFLAG=l:GOT 
O  290 

IF  COMMAND*<>"SAVE"  THEN  450 
GOSUB  600: OPEN  ARG*  FOR  OUTPUT  AS  #ls 

ARG*= GOTO  300 

IF  C0MMAND*<>"LOAD"  THEN  490 
GOSUB  600: OPEN  ARG*  FOR  INPUT  AS  «1:M 
AX=0:P=0 

WHILE  NOT  E0F(1):LINE  INPUT  #1,L«:LNU 
M (P) =VAL (L*) : L*  CP)=MID« (Lt, LEN (STR* (V 
AL(L*) ) )+l) ;P=P+1:WEND 
MAX=P: CLOSE  #l:GOTO  130 
IF  COMMAND*="NEW"  THEN  INPUT  "Erase  p 
rogram  -  Are  you  sure";L*;IF  LEFT*(L* 
,l)="y"  OR  LEFT*(L«,1)="Y"  THEN  MAX=0 
5 GOTO  130; ELSE  130 

IF  COMMAND*=" BASIC"  THEN  COLOR  7,0,0s 
ON  ERROR  GOTO  0: CLS: END 
IF  COMMAND*<> "FILES"  THEN  520 
IF  ARG«=""  THEN  ARG«="A; "  ELSE  SEL=1; 
GOSUB  600 

FILES  ARB*:GOTO  130 
PRINT"Syntax  errDr"sGOTO  130 
P=0; WHILE  LNUM>LNUM(P)  AND  P<MAX:P=P+ 
1: WEND: RETURN 

MAX=MAX-l:FOR  X=P  TO  MAX : LNUM ( X > =LNUM 
(X ; 1) :L*(X)=L*(X+1 > :NEXT!RETURN 
MAX=MAX+l:FOR  X=MAX  TO  P+1  STEP  -IsLN 
UM(X>=LNUM(X-1):L*(X)=L*(X-1):NEXT!L« 
( P ) =TE  X  T* : LNUM ( P ) =LNUM : RETURN 
IF  LEFT*(AR6«,1)<>CHR«(34)  THEN  520  E 
LSE  ARG«=MID«(ARG»,2) 

IF  RIGHT«(ARG«,1>=CHR*(34)  THEN  ARG«= 
LEFT* ( ARG* , LEN ( ARG*  > - 1 ) 

IF  SEL=0  AND  INSTR(ARG«,".")=0  THEN  A 
RG*=ARG*+".BAS" 
SEL=0: RETURN 

CLOSE  « 1 : CKFLAG=0 : PR I NT " St  opped . " : RET 
URN  150 
PRINT  "Error  #"; ERR; RESUME  150 
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(800)  23&4137  lor  prtce*  and  tHfofmaOon. 
M*«  and  Muter  Card  accefrtal.  Afl  oideim 
•cnt  postage  paid 


PACIFIC 
EXCHANGES 

100  Foolhill  Blud. 
San  Luis  Obispo.  CA 
93401   (In  Cal,  cal 
(805)  543-1037  ) 


maxell  disks 

LIFETIME  WARRANTY 


TIRED  OF  WAITING 
FOR  SERVICE  AND  PRICE? 

9  out  of  10  SURVEYED 
DISK  BUYERS  PREFERRED 

NORTH  HILLS 

#1  IN  SERVICE  AND  PRICE 

1-800-328-3472 

Formatted  and  hard  sectored  disks 
in  stock-Dealer  inquiries  invited. 

COD,  VISA,  MASTERCARD 
All  orders  shipped  within  24  hrs. 

NORTH  HILLS  CORP. 
INTERNATIONAL 

3S64  Rolling  View  Di. 

White  Bear  Lake,  MN.  55110 

MN.  call  col]eci-612-77Q-Q485 


Classified 


PHONEMARK  DATASETTES;  C64,  Plus4,  Vic20. 
$25.00  plus  shipping.  We  are  direct  importers. 
American  Mercantile  Co.,  2450  Isl  Ave.  South, 
Seattle,  WA  98134  (206)624-6141. 

T.I.  CHECKWRITER  Letter  code  and  dollar 
amount  are  all  that's  necessary  to  print 
3  complete  check.  Provides  yearly  totals 
for  taxes.  Disk  $24.95.  R.l.P.  Software 
248  Purisima  Rd.,  Woodside  CA  94062. 

SCIENCE  SOFTWARE  with  graphics  for  the 
Commodore  64.  Astronomy  programs,  etc. 
Catalog  and  demo  disk  $3.  David  Eagle, 
7952  W.  Quarto  Dr.,  Ultleton,  CO  80123. 

SAFEGUARD  YOUR  COMPUTER  KEYBOARD 
from  contaminants  with  OVERBYTE  molded 
keyboard  covers,  $24.95  xparent  &  durable! 
Call  (213)866-2583/send  $2  further  info, 
OVERBYTE-RO.  Box  10652,  Burbank,  CA  91510. 

SOFTWARE  PROTECTOR  64.  Copy  and  list 
protect  your  valuable  Basic  programs. 
Only  $10  (disk  only).  Systems  Software 
44  Rte  25A  #209,  Smithtown,  NY  11787. 

PINOCHLE  for  Commodore  64,  PC  and  PC|*r. 
Real,  double-deck,  partnership  pinochle 
gives  you  a  parmer  and  two  opponents! 
On  disk,  $25  postpaid.  Jim  Bernard,  8018 
Sunset  Path  Ct.,  Springfield,  VA  22153. 

LOWEST  DISK  PRICES-SS/DD  with  sleeve  & 
label-10/$8.80,  bulk  100/$78.  Ds/DD  with 
sleeve  &  label-10/$10.90,  bulk  100/$99. 
Prime  quality  major  mfr's  overstock! 
Money-back  satisfaction  guarantee!  Min 
order  $15.  Pay  by  MC/Visa/AE,  UNITECH 
20  Hurley  St.  Cambridge,  MA  02141 
(800)343-0472,  in  Mass  (617)864-8324. 

HELP  IS  ON  THE  WAYl 
Just  call  1-800-334-0868  to  get  your  free 
copy  of  the  latest  COMPUTE!  Books  Catalog! 
If  you  need  help  in  getting  information  on 
all  of  the  latest  COMPUTE!  book  titles 
available  plus  all  COMPUTE!  backlist  titles, 
call  us  today! 


$$  Money  Maker  $$ 

Increase  your  income  by  hundreds  and  even 
thousands  of  dollars,  Money  back  guarantee! 
(Apple,  Macintosh,  IBM)  Free  brochure: 
1-800-223-5838  (305-771-6498). 

ATARI  USERS.  4  games  on  cassette,  $25. 
Saucers  +  monsters,  poker,  sea  finder,  pinball. 
Write  or  call  Keith  Anderson,  8435  12th  Ave., 
Silver  Spring,  MD  20903  (301)434-0285. 

DISK  SERVICE  MANUAL.  Service  floppies 
without  special  software  or  equipment. 
FREE  information.  Consumertronics-DSM, 
PC  Drawer  537,  Alamogordo,  NM  38310. 

Max  MDl,  $1.39-MD2,  $1.99.  Dys  104/lD,  $1.79 
-104/2D,  $2.39.  shipping  $3.75.  also  Verbatim, 
IBM,  3M,  BASF.  TAPE  WORLD,  220  Spring  St., 
Butler,  PA  16O01,  1-800-245-6000,  Visa,  MC. 

REPLACEMENT  POWER  SUPPLIES  FOR 
C-64  or  VIC-20  $29  ea.  plus  $3  shipping. 
64  parts  list  $5-refundabIe  w/lst  order. 
AA  Computer,  2726  Park  St.,  JAX,  FL  32205. 

FREE!  SHOP  BY  MODEM  in  our  revolutionary 
electronic  shopping  mall.  We  even  accept 
credit  cards!  We  have  products  YOU  want! 
Call  1-800-840-8066  with  your  modem  NOW! 

BUY-SELL-TRADE  computers,  hardware,  soft- 
ware. Announce  dubs,  BBS's  etc.  Send  for 
free  sample  of  Micro-Swap,  the  computer 
classifieds.  P.O.  Box  24,  Esmond,  II  60129. 

FIXED  ASSET  DEPRECIATION  on  C64 
Handles  acrs  and  pre-acrs  methods,  $39.95. 
For  free  info  write;  MPM  Software  Prods,, 
P.O.  Box  3522,  Glendale,  CA  91201. 

COMPUTER  OWNERS!!!  Earn  dollars  and  save 
money  with  your  computer.  Write  C&D 
Associates,  Box  851,  Mt.  Prospect,  IL  60056 
Specify  computer  type.  No  Investment!! 

TI-99/4A  SOFTWARE/HARDWARE  bargains. 
Hard-to-find  items.  Huge  selection.  Fast 
service.  Free  catalog.  D.E.C.  Box  690, 
Hicksville,  NY  11801. 
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COMPUTEI's 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information  about  the  products  ad- 
vertised in  this  issue.  Cieariy  print  or  type  your  full  nanne  and  address, 
Only  one  card  should  be  used  per  person.  Circle  the  nunnbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index. 

Send  in  the  card  and  the  advertisers  will  receive  your  inquiry.  Al- 
though every  effort  is  made  to  insure  that  only  advertisers  wishing  to 
provide  product  information  have  reader  service  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers. 

Piease  use  these  cards  only  for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTEI  P.O.  Box  5406,  Greensboro,  NC  27403.  Check 
the  expiration  date  on  the  cord  to  insure  proper  handling. 

Use  these  cards  and  this  address  only  for  computei's  Reader  infor- 
mation Service.  Do  not  send  with  payment  in  any  form. 
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Country 
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Zip 
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SUBSCRIBE  TO  COMPUTE! 

My  Computer  Is: 

01  n  Apple    02  n  Atari    03  D  Commodore  64 

04 a  VIC-20     05 D  IBM     kD  TI-99/4A 

99  n  other D  Don't  yet  have  one. 


For  Fastest  Service, 

Call  Our  Totl-Free 

us  Order  Line 

800-334-0068 

lnHCcall«19-27$-9M9 


D  $24.00  One  Year  US  Subscription 
D  $45.00  Two  Year  US  Subscription 


(Readers  outside  of  the  US,  please 
see  our  foreign  readers  subscription 
card  or  inquire  for  rates). 


Name 
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Zip 

D  Payment  Enclosed 
Charge  my:  D  VISA 
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n  Bill  me 
D  MasterCard 

D  American  Express 
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CARDCO's  new  DIGI-CAM ' '  is  a  video 
digitizer  that  lets  you  transform  just  about 
anything  you  can  shoot  with  a  video  camera 
into  a  black-and-white  digital  image.  And, 
with  your  Connmodore  64 '' ,  you  can  rnake 
pictures  of  that  innage. 
DIGI-CAM ' '  comes  complete  with  a  black- 
and-white  video  camera,  a  digitizer,  and 
software.  It's  the  most  oomprehensive  package 
at  the  most  competitive  price  around.  And  it's 
a  CARDCO  quality  product 

FOCUS.. .SHOOT.. .STORE.. . 

AND  PRINT!  

DIGI-CAM  "is  incredibly  | 

easy  to  use.  Simply  focus  ■  i 

the  video  camera  on  your 

subject,  view  the  shot  on 

your  Commodore  64 ' 

monitor,  store  the  shot  on        ..a 

CARDCO's  DIGI-CAM"' 

software . . .  and  print  out. 

You  can  enhance  or 

change  the  on-screen 


image  —  or  combine  it  with  text  —  because 
a  version  of  CARDCO's  Paint  Now/Graph 
Now  software  is  built  in  ...  at  no  extra  cost! 
Make  T-shirts  for  your  friends",  Christmas 
cards  and  birth  announcements  ...  maps, 

grapfis,  photos,  secur- 

ily  i.d.'s  ...  use  it  for 
business  or  pure 
pleasure.  Plus,  you 
can  transfer  still 
images  via  modem 
to  other  ' 

Commodore "  com-     ' 
putcis...  and  share      ' 
your  shots!  (Soon  to     ' 
be  compatible  with  Apple 
and  IBM.) 

CAMERA,  DIGITIZER,  , 
'      .    SOFTWARE... THE 

WHOLE  PICTURE        \ 
FOR  S250* 


. ..  shouldn  t  you  be  in  picturcsf 
CARDCO's  DIGI-CAM"'  is  available  at  fine 
computer  stores  everywhere.  For  more  infor- 
mation contact  your        

local  CARDCO 
dealer. 


cardco,  inc. 

"The  world's  lai^cst  manufacturer 

of  Commodore'  accessories." 

500  S.  Topcka,  Wichita,  Kansas  67202 


DIG  l-CAM '  '  from  •  Su^,cslcd  reliiil  —  prices  may  vary. 

CARDCO.  For  just  S2  50        •  •  Special  heal-tra  nsFcr  f ibi)r>n  f eiiuired . 


FOR  $250:..YOU  OUGHIA 
BE  IN  PICTURES! 


■  t .  ^ 


If  you  own  an  Apple  Ik, 
you'd  have  to  add  all  this 


■\ 


y 


WiS'r'i'i'i'i'YV-t 


W:'!'!'!'M'!'!'1'V 


to  match  the  versatility,  expandability 

and  higher  intellisence  of  the 

new  Commodore  128 


The  new  Commodore  128'"  personal 
computer  is  breakthrough  technol- 
ogy at  a  breakthrough  price.  It  out- 
shines the  Apple®  lie  in  performance 
capability  performance  quality  and 
price.  !t  is  expandable  to  5i2K  RAM 
while  the  lie  isn't  expandable  at  all. 


(and  it  costs  less  too). 

And  the  new  Commodore  1 28  has  a 
numeric  keypad  built  right  into  its  key- 
board that  makes  cnjnching  numbers 
a  lot  easier.  And  the  Commodore  1 28 
has  graphic  and  sound  capabilities 
that  far  exceed  those  of  the  Apple  lie. 
But  the  most  important  news  is  that 


the  new  commodore  128  jumps  you 
into  a  whole  new  world  of  business, 
productivity  education  and  word 
processing  programs  while  stil!  run- 
ning over  3,000  programs  designed 
for  the  Commodore  64.'"  That's  what 
we  call  a  higher  intelligence. 


COMMODORE  128^  PERSONAL  COMPUTER 

A  Higher  Intelligence 


